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TSSLE: 



. TITLE TSSLE — TSX-Plus Single Line Editor 

. ENABL LC 

. ENABL AMA 

. DSABL GBL 

. CSECT TSSLE 

. RAD50 /SLE/ ; Overlay region id 



TSSLE is the TSX-Plus system overlay module that contains routines 

to implement the single line editor. 

Copyright <c) 1983, 1984, 1985, 1986, 1987, 1988. 

S&H Computer Systems, Inc. 
Nashville, Tennessee USA 
All rights reserved. 

Global definitions 

. GLOBL GTSLCH 

Global references 

. GLOBL SLOVER, SLRPTR, SLCYC1, SLCYC2, *scca, lsw5 

GLOBL *VBELL, *PWKFY, LSW1 1 , LNPR IM, *V52EM, SLSPTR, SLDOWN 

GLOBL Vv-LSCH, *CTRLW, MAXSEC, DOSWIT, *1ESC, *WDISP, WINDSP 

GLOBL KT*LET, KT*GLT, SSLLET, LWINDO, WPWCH, WINPRT 

GLOBL VKEYMX, KD*COD, KD*FLG, KD*TXT, KD**SZ, KF*ECO, KF*TRM 

. GLOBL KT*NRM, KT*GLD, KC*E1 , KC*E2, KC*E3, KC*E4, KC*E5, KC*E6 

GLOBL KC*F6, KC*F7, KC*F8, KC*F9, KC*F10, KC*Fli, KC*F12, KC*F13 

GLOBL KC*F14, KC*F15, KC*F16, KC*F17, KC*F18, KC*F19, KC*F20 

. GLOBL KC*MIN, KC*ENT, KC*COM, KC*DOT, KC*PF1 , KCSPF2, KC*PF3, KC*PF4 

GLOBL KC*KPO, KC*KP1, KC*KP2, KC*KP3, KC*KP4, KC*KP5, KC*KP6 

GLOBL KC*KP7, KCSKP8, KC*KP9, KC*LFT, KC*RIT, KC*UP, KCSDWN. VPAR6 

. GLOBL SLCBUF, SIGWAT, LSW6, CTRLQ, LF, LFWLIM, LTRMTP, KEYPAR 

GLOBL LOGFLG, LF*IN, SLLBUF, LRBFIL, LCOL, INTPRI, LHIPCT 

. GLOBL SLOPTR, SLECOL, LSPACT, BKSPAC, SLCX, VT52, TAB, *XSTOP 

GLOBL SLSCOL, SLCCOL, PR7, LSW3, STOP, LTTPAR, *NOIN, LOGCR, CHKABT 

GLOBL SLGOLD, VINTIO, LACTIV, QHDSPN, KPAR6, CR, PSW 

. GLOBL LOGCHR, LNSPAC, S*INWT, SLEBUF, SLMXLN, BELL, LINPNT 

. GLOBL OVRHC, *DBGMD, SLDBUF, LAFSIZ, DELCHR, *DISCN 

GLOBL ESC, QUECHR, *NOLF, *LC, LSW2, LCBIT, LJSW, *SLINI, LSW7 

GLOBL LSCCA, SLCR, *ECHO, LRTCHR, *SLKED, SLBACK, SLSBUF, LINCNT 

GLOBL VT100, LITIME, VGUAN1, LSTATE, S*TTFN, ENQTL, *SUCF, LSW9 

. GLOBL *NOINT, SLLPTR, SLLEND, RUBOUT, *NDICP, LSW10 

. GLOBL CSICHR, SS3CHR, SLCSBF, SLCSBX, SLCSPT, SLCSR, NEDCDI 

. GLOBL *DETCH, LSW 



Macro definitions: 

. MACRO DISABL 
BIS #PR7, @#PSW 
. ENDM DISABL 



. MACRO 
BIC 
. ENDM 



ENABL 

INTPRI, S#PSW 
ENABL 



i DISABLE INTERRUPTS 



i ENABLE INTERRUPTS 



. MACRO OCALL 



ENTADD 



TSSLE 
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. IF 

. ENDC 
CALL 
. WORD 
. ENDM 



B, ENTADD 

.ERROR i OCALL without entry address 

OVRHC 

ENTADD 

OCALL 



The TTMAP and TTMAPX 
terminal character b 
register are pushed 
UNMAP or UNMAPX macr 
Rl must contain the 
are being accessed. 
The difference betwe 
macros is that the X 
used from within int 
to be running on the 
The TTMAP and UNMAP 
used in sections of 



macros are used to map kernel-mode par6 to the 
uffer area. The previous contents of par6 map 
on the stack and may be restored by using the 
os. 
line index number of the line whose buffers 

en the TTMAP-UNMAP macros and the TTMAPX-UNMAPX 
-versions are more efficient but may only be 
errupt service routines where we are guaranteed 

system stack, 
versions of the macros must only be 
code where the interrupts are disabled. 



. MACRO TTMAPX 

MOV LTTPAR<R1>, ©#KPAR6 

. ENDM TTMAPX 

. MACRO UNMAPX 
. ENDM UNMAPX 

. MACRO TTMAP 

MOV @#KPAR6, MAPHLD 

MOV LTTPAR<R1K«#KPAR6 

. ENDM TTMAP 

. MACRO UNMAP 

MOV MAPHLD, ©#KPAR6 

. ENDM UNMAP 

The KEYMAP macro is used to map KPAR6 to the local region that has 
the user key definitions. Use the KEYUMP macro to restore mapping. 

. MACRO KEYMAP 

MOV @#KPAR6, MAPHLD 

DISABL 

MOV KEYPAR, @#KPAR6 

. ENDM KEYMAP 

. MACRO KEYUMP 

MOV MAPHLD, @#KPAR6 

ENABL 

. ENDM KEYUMP 

The KEYCHK macro is used to call the KEYSRC routine to see if a specific 

key has been defined by the user. 

The argument to KEYCHK is the key code. 

. MACRO KEYCHK KEYCOD 
JSR R5, KEYCK 
. WORD KEYCOD 
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. ENDM KEYCHK 

i Data areas 

i 

MAPHLD: . WORD 



i Temp cell used by TTMAP macro 
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— Get next character from single-line editor 
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SBTTL GTSLCH 



Get next character from single-line editor 



000004 010246 



000006 032761 OOOOOOG OOOOOOG 

000014 001002 

000016 004737 000176' 



000022 013702 OOOOOOG 
000026 001404 



000030 112200 
000032 001005 



GTSLCH is called to get from the single-line editor the next character 
to pass to the program. 

Inputs: 
Rl = Job index number. 

Outputs: 
RO = Next character to pass to program. 

GTSLCH: MOV R2, -<SP> 

Perform initialization if this is the first call for this line 

BIT #*SLINI, LSW7(R1 )i Have we done initialization for this line? 

BNE 1* iBr if yes 

CALL SLINIT ; Initialize for line 



See if me have a complete line ready yet. 



1*: 



MOV 
BEG. 



SLOPTR, R2 
2* 



; Get next output character 



MOVB 
BNE 



<R2>+, RO 
3* 



i Do we have any characters ready to go? 
j Br if not 



■Get next output character 
; Br if got a character 



000034 004737 000176' 



000040 004737 000102 



000044 000766 



000046 010237 OOOOOOG 



We have finished passing the last line to the program. 
Initialize for a new line. 



CALL 



SLINIT 



j Initialize for a new line 



There are no characters available to be passed to program. 
See if there are any pending input characters that need 
to be processed. 

2*: CALL SLINCH > Check for pending input characters 

Now go back and see if we have any characters ready for output 

BR 1* 
We might have a character for the program 

3*: MOV R2» SLOPTR i Save updated output character pointer 

i 

> See if we need to reset the "interactive" timer for this job 



000052 032761 OOOOOOG OOOOOOG 5*: 

000060 001006 

000062 013761 OOOOOOG OOOOOOG 

000070 013761 OOOOOOG OOOOOOG 



BIT 
BNE 

MOV 
MOV 

Finished 



#*NOINT, L5W7(R1 ) J Is program being run non-interactively? 

4* > Br if yes 

VINTIO, LHIPCT<R1) ; Reset high-priority hit limit for job 

VGUAN1, LITIME(Rl) > Reset interactive CPU time limit 
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GTSLCH — Get next character from single-line editor 



58 000076 

59 000100 



012602 
000207 



4*: 



MOV 

RETURN 



<SP)+, R2 
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— See if any input characters need to be processed 
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. SBTTL SLINCH — See if any input characters need to be processed 

SLINCH is called to see if there are any characters pending in the 

terminal input buffer that need to be processed by the single 

line editor. 

This routine waits for an input character to be received/ processes it» 

and then returns. 

Inputs: 
Rl = Line index number. 



000102 010246 
000104 010546 



000106 032761 OOOOOOG 0000000 

000114 001405 

000116 052761 OOOOOOG OOOOOOG 

000124 004737 OOOOOOG 



000130 005761 OOOOOOG 
000134 001003 



SLINCH: MOV 
MOV 



R2, -<SP) 
R5, -<5P> 



Abort the job if a detached job is trying to do input from the terminal 

BIT #*DETCH, LSW<R1> ;Is this a detached job? 

BEO 1* i Br if not 

BIS #*DISCN> LSW(R1 ) i Abort the detached job 

CALL STOP *Stop execution of job 

See if there are any characters in the terminal input buffer 



1*: 



TST 

BNE 



LINCNT(Rl) 



i Are there any chars in input buffer? 
j Br if yes 



There are no pending characters. 
Wait until we get one. 



000136 004737 007042' 
000142 000772 



CALL 
BR 



INWAIT 
1* 



>Wait for a character to arrive 
> Go try again 



There are pending input characters. 

Get the next character out of the input buffer. 



000144 016102 OOOOOOG 

000150 

000156 042700 177400 

000162 010005 



000164 004737 000350' 



2*: 



MOV 


LINPNT(Rl)* 


R2 


OCALL 


DELCHR 




BIC 


#••^377, RO 




MOV 


RO, R5 





Process the character 
CALL PRCHAR 



Get address of next character to get 

Get character from buffer 

Clear all but low order 8 bits of character 

Put character we got in R5 



Process the character 



Return to higher-level routine to see if we have a complete 
line ready yet. 



000170 012605 
000172 012602 
000174 000207 



MOV 


(SP)+, R5 


MOV 


<SP)+, R2 


RETURN 





TSSLE — 
SLINIT - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

ie 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



TSX-Plus Single Line E MACRO V05. 05 Wednesday 18-Jan-89 14: 16 Page 4 
- Initialize for new get line 



. 8BTTL SLINIT — Initialize for new get line 
SLINIT is called each time we begin to acquire a new input line. 



Inputs: 
Rl = Job index number. 



000176 010546 



SLINIT: MOV 



R5, ~<SP> 



000200 032761 0000000 OOOOOOG 

000206 001402 

0002 1 004737 1 1 1 66 ' 



000214 005037 OOOOOOG 



000220 105037 OOOOOOG 



000224 105037 OOOOOOG 



000230 005037 OOOOOOG 



000234 105037 OOOOOOG 



000240 105037 OOOOOOG 



000244 105037 OOOOOOG 

000250 012737 OOOOOOG OOOOOOG 



000256 116100 OOOOOOG 

000262 010037 OOOOOOG 

000266 010037 OOOOOOG 

000272 010037 OOOOOOG 



If SL is in KED mode- send control sequence to terminal to put 
numeric keypad into alternate mode. 

BIT #*SLKED, LSW7(R1); Are we in KED mode? 

BEG 1* ; Br if not 

CALL AKEYON > Turn on alternate keypad mode 

Say no line is ready to be sent to program 

1*: CLR SLOPTR ; No output line ready 

Say Gold key (PF1) is not pending 

CLRB SLGOLD iGold key not pending 

Say carriage return not pending 

CLRB SLCR ; Carriage return was not last character 

Say we are not processing a terminal control sequence 

CLR SLCSR ; Not processing terminal control sequence 

Set direction to forward 

CLRB SLBACK ; Set direction = forward 

Say we are not in overstrike mode 

CLRB SLOVER > Not in overstrike mode 

Clear edit buffer and initialize cursor to point to 1st character 



CLRB SLEBUF 

MOV #SLEBUF, SLCX 



i Store null as 1st char in edit buffer 
i Say cursor is pointing to 1st character 



Set up cursor display position for left end of line 



MOVB 


LCOL(Rl), RO 


MOV 


RO, SLSCOL 


MOV 


RO, SLECOL 


MOV 


RO, SLCCOL 



000276 005737 OOOOOOG 

000302 001003 

000304 012737 OOOOOOG OOOOOOG 



> Get column number of start of field 

; Set this as start-of-1 ine column 

; Set this as end-of-line column 

i Set as cursor display column 

Initialize to point to most recent saved line 

TST SLSPTR ;Has save-line pointer been initialized? 

BNE 2* iBr if yes 

MOV #SLLBUF, SLSPTR J Most recently saved line position 
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— Initialize for new get line 

wwi/o-..- w*w,w* wwwwu^^ wv^/wvUw «=.*>. nuv aLor iR/ sLLr i !» ioei up— arrow pointer to most recent line 

> Set flag saying initialization has been done for this line 

000320 052761 000000G 000000G BIS #*SLINI, LSW7<R1 > ; Set initialization-done flag 



000326 013705 000000G 

000332 001404 

000334 004737 007704 ' 

000340 005037 000000G 



000344 012605 
000346 000207 



j See i f we 


need to reca 


MOV 


SLRPTR, R5 


BEG 


9* 


CALL 


RSTLIN 


CLR 


SLRPTR 


> Finished 





> Is a recall pending? 

; Br if not 

♦Restore the line 

; Say recall has been done 



9*: 



MOV <SP)+, R5 
RETURN 
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000350 


010246 
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000352 


010346 




10 


000354 


010546 




11 
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13 








14 


000356 


004737 


001144' 


15 


000362 


103026 




16 








17 








18 








19 


000364 


013700 


OOOOOOG 


20 


000370 


001402 




21 


000372 


004710 




22 


000374 


000421 




23 








24 








25 








26 


000376 


005737 


OOOOOOG 


27 


000402 


001414 




28 


000404 


010500 




29 


000406 


105737 


OOOOOOG 


30 


000412 


001403 




31 


000414 


052700 


OOOOOOC 


32 


000420 


000402 




33 


000422 


052700 


OOOOOOC 


34 


000426 


004737 


011272' 


35 


000432 


103402 




36 








37 








38 








39 








40 


000434 


004737 


000450 ' 


41 








42 








43 








44 


000440 


012605 




45 


000442 


012603 




46 


000444 


012602 




47 


000446 


000207 





Process a character received from the terminal. 

Inputs: 
Rl = Job's virtual line index number. 
R5 = Received character. 



PRCHAR: MOV 
MOV 
MOV 



R2, -<SP) 
R3, -<SP> 
R5, -<SP> 



Determine if this character begins a terminal control sequence 



CALL 
BCC 



CSCHK 
9* 



; Check for control sequence start 
; Br if start of control sequence 



See if we are currently accepting a terminal control sequenci 



MOV 
BEG 
CALL 
BR 



SLCSR, RO 
3* 
(RO) 
9* 



i Are we processing a control sequence? 
<Br if not 

»Call routine to process this character 
iFinished with this character 



Determine if this is a user-defined key 



3*: 



8*: 
2*: 



TST 

BEQ 

MOV 

TSTB 

BEQ 

BIS 

BR 

BIS 

CALL 

BCS 



KEYPAR 
5* 

R5, RO 
SLGOLD 

8* 



i Are there any user-defined keys? 

j Br if not 

; Get the character 

•Was gold key pressed? 

; Br if not 



#KT*GLT*400, RO > Say this is a gold letter 

2$ 

#KT*LET*400» RO ; Say this is a regular letter 

KEYSRC ;See if key is user defined 

9* ; Br if this is a usei — defined key 



Process ordinary characters that are not part of control sequences 
and that are not usei — defined keys. 



5*: CALL 
Finished 



ORDCHR 



Process an ordinary character 



9*: MOV <SP>+, R5 

MOV ( SP ) +> R3 

MOV <SP>+, R2 
RETURN 



i 
f 
t 



i 

i 
f 
I 

c 

t 
f 

i 

i 
i 

€ 
f 

I 

f 



TSSLE — 
ORDCHR - 

i 
2 
3 
4 
5 
6 
7 

e 

9 
10 
11 
12 
j. o 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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000450 



. SBTTL ORDCHR — Process ordinary characters 

Process ordinary characters (both control and non-control). 

Inputs: 
Rl = Job index number 
R5 = Received character 

ORDCHR: 

See if Gold key was pressed 



t 

1 



vOOOOOG 



000454 001426 



TSTB 
BEG 



SLGOLD 
1* 



iwd& gold key pressed' 
; Br if not 



Gold key was pressed. Check for Gold-S. 



000456 120527 000123 

000462 001403 

000464 120527 000163 

000470 001005 

000472 105037 OOOOOOG 

000476 004737 004462 ' 

000502 000443 



000504 120527 000130 

000510 001403 

000512 120527 000170 

000516 001005 

000520 105037 OOOOOOG 

000524 004737 004514' 

000530 000430 



2*: 



CMPB 


R5, #'S 


BEQ 


2$ 


CMPB 


R5, #'s 


BNE 


3* 


CLRB 


SLGOLD 


CALL 


KBS 


BR 


9* 



i Gold-S? 

; Br if yes 

; Gold-s? 

i Br if not 

; Reset Gold flag 

; Gold-S ==> Save command 



Check for Gold-X. 



3*: 



10*: 



CMPB 


R5,#'X 


BEQ 


10* 


CMPB 


R5,#'x 


BNE 


1* 


CLRB 


SLGOLD 


CALL 


KBX 


BR 


9* 



i Gold-X? 

; Br if yes 

; Gold-x? 

; Br if not 

; Reset Gold flag 

; Gold-X ==> Recall command 



If debugger is in control* bypass some special character processing 



000532 032761 OOOOOOG OOOOOOG 1*: 
000540 001006 



BIT #*DBGMD» LSW6(R1 ); Is debugging program in control? 
BNE 6* ; If yes then bypass some checking 



See if this is a user-defined activation character 



000542 004737 000774' 
000546 103021 



000550 004737 001074' 
000554 103016 



000556 020527 000037 

000562 101003 

000564 004737 005406 ' 

000570 000410 

000572 120527 OOOOOOG 



CALL 
BCC 



CKUAC 
9* 



j See if this is a user-defined activation char 
; Br if it is a user-defined activation char 



See if this is a read-time activation character 



CALL 
BCC 



CKRDTM 
9* 



; See if this is a read time-out character 
; Br if it is 



Determine if this is a normal or control character 



6*. 



4*: 



CMP 


R5, #37 


BHI 


4* 


CALL 


DOCTRL 


BR 


9* 


CMPB 


R5, #RUBOUT 



; Is this a normal or control char? 
; Br if not control character 
; Process a control character 

; Is this a rubout character? 
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58 


000576 


001003 




BNE 


7% 


59 


000600 


004737 


006764 ' 


CALL 


ICPRUB 


60 


000604 


000402 




BR 


9* 


61 


000606 


004737 


000614' 


7*: CALL 


REGCHR 


62 








i 




63 








i Finished 




64 








i 




65 


000612 


000207 




9*: RETURN 





i Br if not 

■> Process rubout character 

; Process a normal character 
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1 
2 
3 
4 
5 
6 
7 
8 
9 000614 

10 000616 

11 000620 

12 000622 
13 

14 
15 

16 000624 

17 000632 

18 000634 

19 000642 

20 000646 

21 000650 

22 000654 

23 000656 

24 000664 

25 000672 

26 000700 

27 000702 

28 000710 
29 

30 
31 

32 000712 

33 000714 
34 

35 
36 

37 000720 

38 000724 

39 000726 

40 000732 

41 000734 

42 000740 

43 000742 
44 

45 
46 
47 

48 000746 

49 000752 

50 000756 
51 

52 
53 

54 000762 

55 000764 

56 000766 

57 000770 



. SBTTL REGCHR — Process normal characters 

Process normal (non-control) characters. 

Inputs: 
Rl = Virtual line index number. 
R5 = Current input character. 



010246 
010346 
010446 
010546 



032761 
001427 
042761 
162705 
002445 
020527 
003042 

052761 
032761 
001430 

000424 



110500 
004737 



105737 
001403 
004737 
000405 
012702 
110012 
004737 



REGCHR: MOV 
MOV 
MOV 
MOV 



R2, -<SP> 
R3, ~<SP) 
R4, -(SP) 
R5,-<SP> 



0000000 OOOOOOG 

0000000 OOOOOOG 
000060 

OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



See if this is part of a request to switch to a virtual line 

Was ctrl-W the last character? 

Br if not 

Say ctrl-W no longer the last char 

Convert digit to binary value 

Br if char after ctrl-W not a digit 

Don't exceed max line # allowed 

Br if too big 

Switch to a virtual line 

Suppress bell ring on next SL read 

Do we need to redisplay our window? 

Br if not 

Redisplay window for job 



Translate character to upper case 



BIT 


#*CTRLW,LSW3<R1> 


BEG 


1* 


BIC 


#*CTRLW,LSW3<R1> 


SUB 


#'0, R5 


BLT 


9* 


CMP 


R5, #MAXSEC 


BGT 


9* 


OCALL 


DOSWIT 


BIS 


#*VBELL, LSW9<R1) 


BIT 


#*WDISP>LSW6<R1> 


BEG 


9* 


OCALL 


WINDSP 


BR 


9* 



1$: 



011066' 

OOOOOOG 
010066' 
OOOOOOG 
010140' 



MOVB 
CALL 



R5, RO 
CVTLC 



Insert character into buffer 



?*: 



TSTB 


SLOVER 


BEG 


2* 


CALL 


OSTRIK 


BR 


3* 


MOV 


#SLCBUF, R2 


MOVB 


RO, <R2> 


CALL 


INSERT 



; Get character 

> Convert lower-case to upper-case 



> Are we in overstrike mode? 
; Br if not 

; Overstri ke 

; Point to character buffer 

> Store char into insert buffer 

; Insert character to left of cursor 



Say there is no deleted character being held and not in terminal 
control sequence. 



105037 
005037 
105037 



012605 
012604 
012603 
012602 



OOOOOOG 
OOOOOOG 
OOOOOOG 



3$: 



9*: 



CLRB 

CLR 

CLRB 

Finished 

MOV 
MOV 
MOV 
MOV 



SLCBUF 

SLCSR 

SLGOLD 



<SP>+, R5 
<SP)+, R4 
<SP)+, R3 
<SP>+, R2 



■» No deleted character being held 

> We are not in a terminal control sequence 

;Gold key <PF1) has not been pressed 



t 

f 

« 

t 

i 



I 

( 
C 

t 

i 

i 

f 

i 

* 

i 
i 

( 



( 
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58 000772 000207 RETURN 



i 

I 

I ( 

i 
I 
I 

It 
> < 
I. 

( 
* 
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TSSLE — 


- TSX-P1 


us Singl 


e Line E 


CKUAC - 


— Check 


for user-define 


1 
2 








3 








4 








5 








6 








7 








S 








9 








10 








11 








12 








13 








14 


000774 


010246 




15 


000776 


010346 




16 








17 








18 








19 


001000 


016102 


0000000 


20 


001004 


001427 




21 








22 








23 








24 








25 


001006 


010500 




26 


001010 


004737 


011066' 


27 








28 








29 








30 


001014 


016103 


OOOOOOG 


31 


001020 


120023 




32 


001022 


001402 




33 


001024 


077203 




34 


001026 


000416 




35 








36 








37 








38 








39 


001030 


010005 




40 


001032 


004737 


007172' 


41 


001036 


013703 


OOOOOOG 


42 


001042 


105723 




43 


001044 


001376 




44 


001046 


005303 




45 


001050 


110523 




46 


001052 


105023 




47 


001054 


004737 


007346 ' 


48 


001060 


000241 




49 


001062 


000401 




50 








51 








52 








53 


001064 


000261 




54 








55 








56 








57 


001066 


012603 





. SBTTL CKUAC — Check for user-defined activation characters 

CKUAC is called to determine if the current input character is a 
user-defined activation character. If it is* it is processed here. 

Inputs: 
Rl = Job index number. 
R5 = Current input character 

Outputs: 
C-flag cleared ==> This is a user-defined activation character. 
C-flag set ===> This is not a user-defined activation char. 



CKUAC : 



MOV 
MOV 



R2, -<SP) 
R3, -<SP> 



See if there are any user-defined activation characters 



MOV LNSPAC<R1>,R2 
BEQ 8* 



; Get number of user-defined activation chars 
; Br if there are none 



There are some user-defined activation characters. 
Translate input character to upper-case if that is wanted 



MOV 
CALL 



R5, RO 
CVTLC 



; Get current character 

; Convert to upper-case if needed 



Search for input character in table of activation characters. 



1*: 



MOV LSPACT<R1>,R3 

CMPB RO, (R3) + 

BEQ 2* 

SOB R2, 1* 

BR 8* 



;Get pointer to table of activation chars 

; Is this an activation character? 

i Br if yes 

; Loop if more to check 

;This is not a user-defined activation char 



This character is a user— defined activation character. 
Store character at end of line and signal line-completed. 



2*: 



3*: 



MOV 

CALL 

MOV 

TSTB 

BNE 

DEC 

MOVB 

CLRB 

CALL 

CLC 

BR 



RO, R5 

SAVLIN 

SL.CX* R3 

(R3) + 

3$ 

R3 

R5, <R3)- 

<R3) + 

LINFIN 

9* 



Get converted character to R5 

Save input line before storing activation chr 

Point to cursor character 

Search for null at end of line 

Loop till null found 

Point to the null character 

Store activation char as last char in field 

Store null at end 

Say input line is finished 

Say this is an activation character 



Character is not a user-defined activation character. 
8*: SEC ; Say this is not a user-defined activation chr 

Fini shed 
9*: MOV <SP)+, R3 



t 



i 
i 
i 
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58 001070 012602 MOV <SP>+, R2 

59 001072 000207 RETURN 



r 
i 



i 

f 

c 
c 

i 
i i 

> t 

► « 

< 
( 

< 
i 



TSSLE — 
CKRDTM - 

4 
J. 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
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001074 



001074 016100 0000000 
001100 001417 



001102 120500 
001104 001015 



001106 013700 OOOOOOG 

001112 105720 

001114 001376 

001116 005300 

001120 110520 

001122 105010 

001124 004737 007346' 



001130 005061 OOOOOOG 
001134 000241 
001136 000401 



001140 000261 



001 14J 



000207 



. SBTTL CKRDTM — Check for read time-out character 

CKRDTM is called to determine if the current input character is a 

read time-out character. If it is. the current input line is terminated. 

Inputs: 
Rl = Job index number. 
R5 = Current input character. 

Outputs: 
C-flag cleared ==> This is a read time-out character, 

CKRDTM: 

See if program has specified a read time-out 



MOV LRTCHR<R1),R0 
BEG 8* 



i Is there a read time-out specified? 
; Br if not 



See if current character is time-out character 



CMPB 
BNE 



R5, RO 

8* 



; Is current character the time-out char? 
; Br if not 



Read time-out has occurred. 
Terminate current input line. 



1*: 



MOV 


SLCX.RO 


TSTB 


(R0) + 


BNE 


1* 


DEC 


RO 


MOVB 


R5, (R0) + 


CLRB 


(RO) 


CALL 


LINFIN 



Get current cursor character index 

Search for end of line 

Loop till null hit 

Point to null 

Store time-out character at end 

Put null at end of string 

Terminate the input line 



CLR 
CLC 
BR 



; Say we have processed the time-out character 
i Say this was the timeout character 



Clear the time-out character flag 
LRTCHR(Rl) 
9* 
This is not a read time-out character 
8*: SEC .Signal not time-out character 

Fini shed 
9*: RETURN 



I 

I 

c 

f 

i 

i 



i 
i 

« 
( 

t 

t 

i 

i 

* 

i 

i 
i 

i 
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l 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 



001144 



001144 120527 OOOOOOG 

001150 001003 

001152 004737 006274' 

001156 000413 



001160 120527 OOOOOOG 

001164 001003 

001166 004737 006326' 

001172 000405 



001174 120527 OOOOOOG 

001200 001004 

001202 004737 006352' 



001206 000241 
001210 000401 



001212 000261 



001214 000207 



3BTTL CSCHK 



Check for start of control sequence 



CSCHK is called to determine if the current character begins a 
terminal control sequence. 

Inputs: 
Ri = Line index number. 
R5 = Received character. 

Outputs: 
C-flag cleared ==> Start of control sequence. 
C-flag set ==> Not start of control sequence. 

CSCHK: 

See if this is the start of an escape sequence 

i Is this character escape? 

i Br if not 

; Begin escape sequence 

See if this character is CSI.. beginning of VT200 control sequence 



CMPB 


R5, #ESC 


BNE 


1* 


CALL 


ICPESC 


BR 


8* 



1*: 



CSI character? 

Br if not 

Start VT200 control sequence 



See if this character is SS3» beginning of VT200 control sequence 



CMPB 


R5, #CSICHR 


BNE 


2* 


CALL 


ICPCSI 


BR 


8* 



2*: 



CMPB 


R5, #SS3CHR 


BNE 


7* 


CALL 


ICPSS3 



We began a control sequence 



8*: 



CLC 
BR 



; SS3 character? 

; Br if not 

/Start VT200 control sequence 



Signal control sequence began 



9* 



We did not begin a control sequence 
7*: SEC ;Signal that control sequence did not begin 

Finished 
9$: RETURN 



TSSLE — TSX-Plus Single Line E MACRO V05. 05 Wednesday 18-Jan-89 14:16 Page 11 
EPCH1 — Accrue a terminal control sequence 



1 

2 
3 
4 

5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



. SBTTL EPCH1 — Accrue a terminal control sequence 

The routines in this section implement a finite state machine 

which accrues the characters of a terminal control sequence. 

While we are accruing a control sequence, the cell SLCSR contains 

the address of the routine to be called to process the next character. 

EPCH1 is called when we receive the first character following escape 
in a VT100 escape sequence. 



001216 
001222 
001224 
001230 
001236 



013700 
i i0520 
010037 
012737 
000207 



OOOOOOG 

OOOOOOG 
001304' OOOOOOG 



EPCH1; 



MOV 

MOVE 

MOV 

MOV 

RETURN 



SLCSPT. RO 
R5> <RG> + 
RO, SLCSPT 
#EPCH2, SLCSR 



.Get pointer into buffer 

/Accrue the character 

i Save new pointer 

; Set address of routine for next character 



EP52 is called when we receive the first character following escape 
in a VT52 escape sequence. 



001240 013700 OOOOOOG 



EP52: 



MOV 



SLCSPT, RO 



Get pointer into buffer 



If this character is "?" then we are receiving a two character 

control sequence. Otherwise this is a single character control sequence. 



001244 
001250 



120527 
001010 



000077 



CMPB 
BNE 



R5, #'? 
1$ 



; Alternate keypad leadin character? 
; Br if not 



001252 
001256 
001262 
001270 



001272 
001274 
001276 



112720 
010037 
012737 
000404 



110520 
105020 
004737 



000117 

OOOOOOG 

001304' 



OOOOOOG 



This is a two character control sequence. 

Convert "?" to "0" to make the sequence compatible with a VT100. 

; Store "0" as 1st char of sequence 

; Store new buffer pointer 

i Set address of routine to process more chars 



This is a single character control sequence 



MOVB 


#'0, <R0) + 


MOV 


RO, SLCSPT 


MOV 


#EPCH2, SLCSR 


BR 


9* 



001356' 



001302 000207 



1*: MOVB 


R5, <R0) + 


CLRB 


<R0) + 


CALL 


CSFIN 


; Finished 




9*: RETURN 





» Store character into buffer 

iThis terminates the control sequence 

; End of control sequence 



001304 013700 OOOOOOG 



001310 020027 OOOOOOG 

001314 103405 

001316 004737 011154' 



EPCH2 process characters after the 1st character of a control sequence. 
EPCH2: MOV SLCSPT, RO > Get pointer to control sequence buffer 
Make sure we are not about to overflow the control sequence buffer 



CMP 


RO, #SLCSBX 


BLO 


1* 


LnLL 


RNGBEL 



> Is buffer full? 

i Br if not 

; Ring the bell 



( 

► c 
I 

i 

!< 

I t 

If 
< 
< 

« 

t 
< 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 



001322 005037 OOOOOOG 
001326 000412 



001330 110520 



001332 120527 000100 

001336 103404 

001340 105020 

001342 004737 001356 

001346 000402 



001350 010037 OOOOOOG 



001354 000207 



CLR 

BR 



SL.C5R 
9* 



Say not processing a control sequence 



Store character into control sequence buffer 

1*: MOVB R5. <R0)+ .Store character into control sequence buffer 

Determine if this is the terminating character of the control sequence 

i Is this the final char of control seq? 

; Br if not 

.Terminate the control sequence 

; Process the control sequence 

This is not the final character of the control sequence. 
Continue accruing characters. 



CMPB 


R5» #100 


BLO 


2$ 


CLRB 


(R0) + 


CALL 


CSFIN 


BR 


9* 



2*: MOV 
Finished 
9*: RETURN 



RO, SLCSPT 



Save new buffer pointer 



t 
i 
t 

i 

i 

i 
t 
t 

C 

c 
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i 
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i 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 



00135;! 



010246 



001360 005037 OOOOOOG 



001364 012705 001456 



001370 012702 0000000 

001374 122225 

001376 001004 

001400 105765 177777 

001404 001373 

001406 000415 



001410 005305 

001412 105725 

001414 001376 

001416 062705 000003 

001422 042705 000001 

001426 020527 002206' 

001432 103756 



001434 004737 011154' 
001440 000404 



001442 005205 

001444 042705 000001 

001450 004735 



001452 012602 
001454 000207 



. 3ETTL CSFIN — Process terminal uontfgl sequence 

CSFIN is called when we have finished accruing a terminal control 
sequence. 

Inputs: 
Rl = Line index number. 
SLCSBF = Control sequence in asciz form. 

CSFIN: MOV R2, -<SP> 

Say we are no longer processing a control sequence 

CLR SLCSR > No longer accruing a control sequence 

Begin loop to search for the control sequence 

MOV #CSTBL» R5 .Get pointer to control sequence table 

Compare accrued control sequence with sequence stored in table 

; Point to accrued control sequence 

< Compare the strings 

> Br if mismatch 

; Was that the last char of both strings? 

i Br if not 

; We have a match 



1*: 


MOV 


#SLCSBF, R2 


2*: 


CMPB 


(R2)+. <R5)+ 




BNE 


3* 




TSTB 


-KR5) 




BNE 


2* 




BR 


4* 



Strings do not match 



3*: 


DEC 


R5 


5*: 


TSTB 


<R5> + 




BNE 


5* 




ADD 


#3, R5 




BIC 


#1,R5 




CMP 


R5, #CSEND 




BLO 


1* 



Move on to next table entry 

;Point to last char compared in table 
.Search for null at end of asciz string 

; Bound up and skip over following word 

; Get to word boundary 

/Checked all entries in table? 

; Loop if not 



We could not find the sequence in our table 



CALL 
BR 



RNGBEL 

9* 



iRing bell 



We found control sequence in our table. 
Call processing routine. 



4*: 



9*: 



INC 


R5 


BIC 


#1. R5 


CALL 


@(R5>+ 


Finished 




MOV 


<SP>+, R2 


RETURN 





; Bound up to next word following string 
; Get to word boundary 
iCall processing routine 



i 
i 

i 
i 
I 

< 

* 
t 
t 
i 
i 
I 
i 

c 

i 



( 



TSSLE — 


- TSX-P 


CSFIN - 

1 

2 
3 


— Proc 




4 




5 




6 




7 




8 




9 




10 


001456 


11 


001456 


12 


001464 


13 


001472 


14 


001500 


15 


001506 


16 


001514 


17 


001522 


ie 


001530 


19 


001536 


20 


001544 


21 


001552 


22 


001560 


23 


001566 


24 


001574 


25 


001602 


26 


001610 


27 


001616 


28 


001624 


29 


001632 


30 


001640 


31 


001646 


32 


001654 


33 


001662 


34 


001670 


35 


001676 


36 


001704 


37 


001712 


38 


001720 


39 


001726 


40 


001736 


41 


001746 


42 


001756 


43 


001766 


44 


001776 


45 


002006 


46 


002016 


47 


002026 


48 


002036 


49 


002046 


50 


002056 


51 


002066 


52 


002076 


53 


002106 


54 


002116 


55 


002124 


56 


002132 


57 


002140 
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Table of terminal control sequences and associated processing routines 



.MACRO ESCSEQ STRING, RTN 

. ASCIZ /STRING/ 

. EVEN 

. WORD RTN 

. ENDM ESCSEQ 



CSTBL: 



ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 



<CA>, TCUP 
<CB>, TCDOWN 
<LC>, TCRITE 
<CD>, TCLEFT 
<0M>, TCENTR 
<0P>, TCPF1 
<COQ>, TCPF2 
<COR>, TCPF3 
<0S>, TCPF4 
<01>, KEYCOM 
<0m>, KEYMIN 
<0n>, KEYDOT 
<0p>, KEYO 
<COq>, KEY1 
<COr>, KEY2 
<0s>, KEY3 
<0t>, KEY4 
<0u>, KEYS 
<0v>, KEY6 
<COw>> KEY7 
<Qx>, KEYS 
<0y>, KEY9 
<Z1^>, El 
<C2r>, E2 
<C3r>, E3 
<C4' V >, E4 
<C5r>, E5 
<C6~>, E6 
<C17' V >, F6 
<C18~>, F7 
<CV9">, F8 
<C20' V > J F9 
<C21~>, F10 
<C23r>, Fll 
<E24r>, F12 
<C25*->, F13 
<C26**> > F14 
<C28' V >, F15 
<C29^>, F16 
<C31' U >/F17 
<C32 A '>, F18 
<C33r>, F19 
<C34~>, F20 
<0A>, TCUP 
<0B>, TCDOWN 
<0C>, TCRITE 
<0D>, TCLEFT 



Up arrow 

Down arrow 

Right arrow 

Left arrow 

Enter (treat 

PF1 

PF2 

PF3 

PF4 

Comma 

Minus sign 

Period 



1 

2 

3 

4 

5 

6 

7 

8 

9 

El 

E2 

E3 

E4 

E5 

F6 

F7 

F8 

F9 

F10 

Fll 

F12 

F13 

F14 

F15 

F16 

F17 

F18 

F19 

F20 

Up arrow 

Down arrow 

Right arrow 

Left arrow 



like carriage return) 



Find 

Insert here 
Remove 
Select 
Prev screen 
screen 



— Next 



ESC 

BS 

Line 

Help 
Do 



feed 



(Cursor 
(Cursor 
(Cursor 
(Cursor 



key 
key 
key 
key 



mode set) 
mode set) 
mode set) 
mode set) 



< 

i 
i 
i 
< 
i 

i 

< 

C 

« 
i 
i 
4 



TSSLE — 


- TSX-P 


CSFIN - 


— Proc 


5S 


002146 


59 


002152 


60 


002156 


61 


002162 


62 


002166 


63 


002172 


64 


002176 


65 


002202 


66 


002206 
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ESCSEQ 


<A>, 


TCUP 


ESCSEQ 


<B>, 


TCDOWN 


ESCSEQ 


<C>, 


TCRITE 


ESCSEQ 


<D>, 


TCLEFT 


ESCSEQ 


<P>, 


TCPF1 


ESCSEQ 


<Q>, 


TCPF2 


ESCSEQ 


<R>, 


TCPF3 


ESCSEQ 


<S>, 


TCPF4 



• Up arroui 

i Down arroui 

; Right arrow 

i Left arrow 

;PF1 

;PF2 

iPF3 

; PF4 



CSEND: 



<VT52) 

<VT52) 

(VT52) 

<VT52) 

<VT52 numeric) 

(VT52 numeric) 

<VT52 numeric ) 

(VT52 numeric) 



f 
c 

< 
i 
i 
t 
t 
t 
t 
< 
4 
i 
€ 
i 



i 

i 



> t 



{ 
i 

i 
I 

I i 
> 

I C 

I* 

« 

, < 
: t 

( 

t 

t 

( 



TSSLE — 


- TSX-P1 


us Sing! 


e Line E 


TCUP 


-- Up-arrow processing 


i 
2 








3 








4 








5 








6 








7 








S 


002206 


010546 




9 








10 








11 








12 


002210 






13 


002216 


103450 




14 








15 








16 








17 


002220 


105737 


OOOOOOG 


18 


002224 


001426 




19 


002226 


105037 


OOOOOOG 


20 


002232 


005737 


OOOOOOG 


21 


002236 


001421 




22 


002240 


013705 


OOOOOOG 


23 


002244 


020537 


OOOOOOG 


24 


002250 


001003 




25 


002252 


013705 


OOOOOOG 


26 


002256 


000402 




27 


002260 


004737 


007614' 


28 


002264 


010537 


OOOOOOG 


29 


002270 


010537 


OOOOOOG 


30 


002274 


004737 


007704 ' 


31 


002300 


000417 




32 








33 








34 








35 


002302 


013705 


OOOOOOG 


36 








37 








38 








39 


002306 


105737 


OOOOOOG 


40 


002312 


001404 




41 


002314 


105037 


OOOOOOG 


42 


002320 


004737 


007526 ' 


43 








44 








45 








46 


002324 


004737 


007704 ' 


47 








48 








49 








50 


002330 


004737 


007526 ' 


51 


002334 


010537 


OOOOOOG 


52 








53 








54 








55 


002340 


012605 




56 


002342 


000207 
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. SBTTL TCUP — Up-arroui processing 

Process the up-arrow key. 

Inputs: 
Rl = Job index number. 

TCUP: MOV R5, -<SP> 

See if this is a user-defined key 



KEYCHK KC*UP 

BCS 9* 



; See if this is a user-defined key 
; Br if user-defined key 



If gold key was pressed recall through cycle 



4*: 
5*: 



TSTB 


SLGOLD 


BEG 


3* 


CLRB 


SLGOLD 


TST 


SLCYC1 


BEG. 


3* 


MOV 


SLLPTR, R 5 


CMP 


R5, SLCYC2 


BNE 


4* 


MOV 


SLCYC1, R5 


BR 


5* 


CALL 


SLMVDN 


MOV 


R5, SLLPTR 


MOV 


R5, SLSPTR 


CALL 


RSTLIN 


BR 


9* 



Was gold key pressed? 

Br if not 

Clear gold key flag 

Is a cycle defined? 

Br if not 

Point to last recalled line 

Reached end of the cycle? 

Br if not 

Loop back to start of cycle 

i Move to next saved line 
> Remember last recalled line 
»Say this is last saved line 
i Restore the line 



Get pointer to saved line 
3*: MOV SLLPTR, R5 



j Point to saved-line buffer 



If last recall was with down arrow, skip over a command 



/Last operation down arrow? 
■> Br if not 

;Reset direction indicator 
; Move up 1 1 ine 



/Restore the line 



TSTB 


SLDOWIM 


BEG 


1* 


CLRB 


SLDOWN 


CALL 


SLMVUP 



Restore the saved line 
1*: CALL RSTLIN 



Update up-arrow pointer to point to next saved line 



;Move up to next line 

/Save pointer for next up-arrow 



9*: 



CALL 


SLMVUP 


MOV 


R5/ SLLPTR 


Finished 




MOV 


(SP>+,R5 


RETURN 





TSSLE -- TSX-Plus Single Line E 
TCDOWN — Down-arrow processing 



1 
2 
3 
4 

5 002344 

6 002346 
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, SBTTL TCDOWN — Down-arrow processing 
Process the down-arrow key — Move forward to next saved command. 



010446 
010546 



TCDOWN: MOV 
MOV 



R4, -<SP) 
R5, -<SP) 



7 
S 
9 

10 002350 

11 002356 
12 

13 
14 

15 002360 

16 002364 
17 

18 
19 

20 002366 

21 002372 

22 002376 

23 002402 

24 002404 

25 002410 

26 002414 

27 002422 

28 002426 

29 002432 
30 

31 
32 

33 002434 

34 002440 

35 002444 

36 002446 

37 002454 
38 

39 
40 

41 002460 

42 002464 

43 002466 

44 002472 
45 

46 

47 

48 002474 

49 

50 

51 

52 002500 

53 

54 

55 

56 002504 

57 



See if this is a user-defined key 



103454 



105737 
001423 



105037 
013705 
105737 
001002 
004737 
010537 
013737 
010537 
010537 
000426 



013705 
105737 
001005 
112737 
004737 



020537 
001003 
004737 
000406 



KEYCHK KC*DWN 
BCS 9* 

See if Gold key was pressed 



0000000 



TSTB 
BEQ 



SLGOLD 
3* 



> See if this is a user-defined key 
j Br if user-defined key 



; Was gold key pressed? 
; Br if not 



Gold-down-arrow — Set recall cycle 



OOOOOOG 
OOOOOOG 
OOOOOOG 

007614' 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



4*: 



OOOOOOG 



OOOOOOG 
OOOOOOG 

000001 
007614' 



OOOOOOG 
011154' 



3*: 



OOOOOOG 



Reset Gold flag 

Point to last recalled command 

Was last direction down? 

Br if yes 

Move down a line 

Set pointer to 1st command in cycle 

Save pointer to last command in cycle 

Say this is the last command entered 

Remember last recalled line 



If last recalled command was done with up-arrow skip over that command 

» Point to last saved command 

; Was last direction down? 

; Br if yes 

i We are going down now 

; Move down a command line 



CLRB 


SLGOLD 


MOV 


SLLPTR, R5 


TSTB 


SLDOWN 


BNE 


4* 


CALL 


SLMVDN 


MOV 


R5, SLCYC1 


MOV 


SLSPTR, SLCYC2 


MOV 


R5, SLSPTR 


MOV 


R5, SLLPTR 


BR 


9* 



MOV 


SLLPTR, R5 


TSTB 


SLDOWN 


BNE 


1* 


MOVB 


#1. SLDOWN 


CALL 


SLMVDN 



See if there is a command to recall 



1*: 



CMP 


R5, SLSPTR 


BNE 


2* 


CALL 


RNGBEL 


BR 


9* 



j Any commands left to recall? 

; Br if yes 

; Ring the bell 



004737 007614' 



010537 OOOOOOG 



004737 007704 ' 



; Advance down to the next saved command 

i 

2*: CALL SLMVDN > Move down to next saved command 

i 

i Store new current line pointer 

i 

MOV R5, SLLPTR ; Points to last line recalled 

* 

i Restore the saved line 
i 

CALL RSTLIN ; Restore line pointed to by R5 



4 
f 
I 

i 
i 
i 

I 
C 
t 

t 

i 

< 

< 

< 

i 
i 

i 
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TCDOWN — Down-arrow processing 



58 
59 

60 002510 012605 

61 002512 012604 

62 002514 000207 



9*: 



Finished 




MOV 


(SP)+, R5 


MOV 


<SP)+, R4 


RETURN 





f 

t 
c 

* 

i 
I 
4 
i 

i 
< 

i 

t 

< 



< 

I 

\ t 

I 



TSSLE — TSX-Plus Single Line E 
TCLEFT — Left-arrow processing 

1 
2 
3 
4 

5 

6 

7 

8 002516 010446 

9 
10 
11 

12 002520 

13 002526 
14 
15 
16 

17 002530 

18 002534 

19 002536 

20 002542 

21 002546 

22 002552 
23 
24 
25 
26 

27 002554 

28 002560 

29 002564 
30 

31 
32 

33 002566 005304 

34 002570 004737 010642' 
35 

36 
37 

38 002574 012604 

39 002576 000207 



1034^;=: 



105737 
001407 
012704 
004737 
105037 
000410 



OOOOOOG 

0000000 
010642' 
OOOOOOG 



013704 OOOOOOG 
020427 OOOOOOG 
101403 
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. SBTTL TCLEFT — Left-arrow processing 
Process left-arrow key. 

Inputs: 
Rl = Job index number. 

TCLEFT: MOV R4, -<SP> 

See if this is a user-defined key 



KEYCHK KC*LFT 
BCS 9* 



; See if this is a usei — defined key 
i Br if usei — defined key 



If Gold key was pressed, move to left end of buffer 



TSTB SLGOLD 

BEQ 2* 

MOV #SLEBUF> R4 

CALL CHRPOS 

CLRB SLGOLD 

BR 9* 



;Was Gold key pressed? 

i Br if not 

^Position to left end of buffer 

^Position cursor 

iClear gold-key flag 



Gold key was not pressed — Move cursor left one character. 
Error if already at left margin. 



2$: 



MOV SLCX,R4 

CMP R4, #SLEBUF 

BLOS 9* 

Move cursor left 1 character 



1*: 



DEC 
CALL 

Finished 



R4 
CHRPOS 



* Get cursor position index 
; Are we at left margin now? 
> Br if yes — Nothing to do 



; Move character pointer back 1 character 
iPosition cursor correctly 



9*: 



MOV (SP)+, R4 
RETURN 



i 

c 
i 
i 



€ 

« 

i 

i 

i 
t 



( 

I 

> ( 

I 

I 



( 

i 

I 

» i 

i 

i < 

It 

4 
t 
< 

i 

t 

< 
( 
( 



TSSLE — TSX-Plus Single Line E MACRO 
TCRITE — Right-arrow processing 



1 








2 








3 








4 








5 








6 








7 








8 


002600 


010446 




9 








10 








11 








12 


002602 










103424 




14 








15 








16 








17 


002612 


105737 


000000G 


18 


002616 


001412 




19 


002620 


013704 


000000G 


20 


002624 


105724 




21 


002626 


001376 




22 


002630 


005304 




23 


002632 


004737 


010642' 


24 


002636 


105037 


0000000 


25 


002642 


000407 




26 








27 








28 








29 








30 


002644 


013704 


OOOOOOG 


31 


002650 


105714 




32 


002652 


001403 




33 








34 








35 








36 


002654 


005204 




37 


002656 


004737 


010642' 


38 








39 








40 








41 


002662 


012604 




42 


002664 


000207 





43 
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. 3BTTL TCRITE — Right-arroui processing 

Process the right arrow key. 

Inputs: 
Rl = Job index, 

TCRITE: MOV R4,-<SP> 

> See if this is a usei — defined key 



KEYCHK KC*RIT 
BCS 9* 



i See if this is a user-defined key 
ior if user-defined key 



3*: 



If Gold key was pressed* move to right end of line. 



i Was gold key pressedT' 
; Br if not 

; Get current cursor pointer 
i Search for right end of line 
; Loop till null hit 
.Point to null at end 
.Position cursor on screen 
.Clear gold-key flag 



Gold key was not pressed. Move cursor right 1 character. 
Error if already at right end of line. 



TSTB 


SLGOLD 


BEG 


1* 


MOV 


SLCX, R4 


TSTB 


(R4) + 


BNE 


3* 


DEC 


R4 


CALL 


CHRPOS 


CLRB 


SLGOLD 


BR 


9* 



1*: 



MOV 

TSTB 

BEQ 



SLCX, R4 

(R4) 

9* 



;Get current cursor character pointer 
» Are we at right end of line now? 
> Br if yes 



Move cursor right 1 character. 



2*: 



9*: 



INC 


R4 


CALL 


CHRPOS 


Finished 




MOV 


(SP)+, R4 


RETURN 





; Advance cursor 1 character 
j Move cursor on screen 



i 

i 
« 

< 
I 
I 
I 

i 



C 
I 

i 
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TCPF1 — PF1 processing 

. SBTTL TCPFi — PFi processing 

Process the PFI (Gold) key. 



x 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

J. *J 

14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 



002666 



002666 

002674 103410 



002676 105737 OOOOOOG 

002702 001403 

002704 105037 OOOOOOG 

002710 000402 



002712 105237 OOOOOOG 



002716 000207 



Inputs: 
Rl = Job index number. 

TCPFI: 

See if this is a user-defined key 



KEYCHK KC*PF1 



i See if this is a usei — defined key 
i Br if user— defined key 



See if PFI has been pressed previously 



TSTB SLGOLD 

BEG 1* 

CLRB SLGOLD 

BR 9* 



> Has PFI already been pressed? 

i Br if not 

;Clear gold-key flag 



Set flag saying Gold key pressed. 
1$: INCB SLGOLD {Remember "Gold" key was pressed 

Finished 
9*: RETURN 



c 
i 

c 
i 
i 

i 

f 

t 
€ 
« 

€ 

t 
4 
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TCPF2 — PF2 processing 



2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



002720 



002720 

002726 103404 



002730 004737 011154' 
002734 105037 0000000 



002740 000207 



- J F2 processing 



. SBTTL TCPF2 - 

Process the PF2 key. 

Inputs 
Rl = Job index number. 

TCPF2. 

See if this is a user-defined key 



KEYCHK KC*PF2 
BCS 9* 



> See if this is a user-defined key 
» Br if user-defined key 



PF2 is not defined if it is not a user-defined key. 



CALL RNGBEL 
CLRB SLGOLD 



iHelp support not implemented 
i Clear gold flag 



Finished 
9$: RETURN 



i 
i 
i 

i 
i 

i 
i 

4 

( 
< 
€ 
t 

i 
( 

i 
t 
f 
i 

i 



i 



1 1 

« 



TSSLE 
TCPF3 



i 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 



002742 



002742 

002750 103407 



002752 004737 011602' 
002756 103405 



002760 004737 1 1 1 54 ' 
002764 105037 0000000 
002770 000207 
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— PF3 processing 

. SBTTL TCPF3 — PF3 processing 

- — — __ _ _____ ______ _____ — — _ ___ _____ — .——..— —.. 

; Process PF3 key. 

; Inputs: 

; Rl = Job index number. 

i 

TCPF3: 

> 

> See if this is a user-defined key 







KEYCHK 


KC*PF3 






BCS 


9* 


; If 


this is a 


VT52, 






CALL 


CHK52 






BCS 


TCPF4 


i Th 


is 


is not 


a VT52 



9*: 



CALL RNGBEL 
CLRB SLGOLD 
RETURN 



i See if this is a user-defined key 
; Br if uset — defined key 



i Is this a VT52 terminal? 

; Br if yes 



jPF3 not valid for VT100 
.: Clear gold-key flag 



i 

i 



i 
i 
l 



TSSLE — TSX-P1 


us Singl 


e Line E 


TCPF4 — PF4 p 


rocessin 


9 


1 

2 






3 






4 






5 






6 






7 






8 002772 


010246 




9 002774 


010346 




10 002776 


010446 




11 






12 






13 






14 003000 






15 003006 


103430 




16 






17 






IS 






19 003010 


013704 


OOOOOOG 


20 003014 


105737 


0000000 


21 003020 


001013 




22 






23 






24 






25 






26 003022 


105714 




27 003024 


001421 




28 






29 






30 






31 003026 


010402 




32 003030 


012703 


OOOOOOG 


33 003034 


112223 




34 003036 


001376 




35 






36 






37 






38 003040 


105014 




39 






40 






41 






42 003042 


004737 


010336' 


43 003046 


000410 




44 






45 






46 






47 






48 003050 


012702 


OOOOOOG 


49 003054 


004737 


010140' 


50 003060 


004737 


010642' 


51 003064 


105037 


OOOOOOG 


52 






53 






54 






55 003070 


012604 




56 003072 


012603 




57 003074 


012602 
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, SBTTL TCPF4 — PF4 processing 
Process PF4 key. 



Inputs: 
Rl = Job index number. 



TCPF4: MOV 
MOV 
MOV 



R2, -<SP> 
R3, -<SP> 
R4, -<SP> 



See if this is a user-defined key 



KEYCHK KC*PF4 
BCS 9* 

See if Gold key mas pressed 



MOV 

TSTB 

BNE 



SLCX, R4 

SLGOLD 

1* 



; See if this is a user-defined key 
» Br if user-defined key 



iGet current cursor position pointer 
> Was Gold key pressed? 
> Br if yes 



Gold key was not pressed. 

Delete from cursor to end of line. 



TSTB 
BEG 



(R4) 
9* 



; Is cursor at right end of line now? 

> Br if yes 



Move deleted characters to holding buffer. 



2$: MOV R4, R2 

MOV #SLDBUF, R3 

3*: MOVB (R2)+, (R3>+ 

BNE 3* 



iGet cursor pointer 

;Point to delete buffer 

;Move deleted chars to holding buffer 

; Loop till null moved 



Truncate line at cursor position 

CLRB (R4) /Truncate line 

Display truncated line 



CALL 
BR 



PAINT 
9* 



Redisplay line from cursor to right end 



Gold (PF4) key was pressed. Replace test from holding buffer. 
Insert text to right of cursor position. 



1*: 



9*: 



MOV 
CALL 
CALL 
CLRB 

Finished 

MOV 
MOV 
MOV 



#SLDBUF, R2 
INSERT 
CHRPOS 
SLGOLD 



<SP>+, R4 
<SP)+, R3 
<SP)+, R2 



; Get pointer to holding buffer 
» Insert text 
/Position cursor 
/Clear gold-key flag 



i 
I 
< 
i 
# 

€ 

i 

i 

c 

< 

t 

i 
f 

i 
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TCPF4 -- PF4 processing 

58 003076 000207 RETURN 



TSSLE • 
TCENTR 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 



003100 

003106 103406 



003110 105037 OOOOOOG 

003114 105237 OOOOOOG 

003120 004737 005622' 

003124 000207 



003126 



003126 004737 011154' 



003132 105037 OOOOOOG 



003136 000207 
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— Enter key processing 

. SBTTL TCENTR — Enter key processing 

* — — ——————————————————— —————— — .————— — — — — — — — — — — — — — . 

i Treat Enter key like carriage-return line-feed. 
i 
003100 TCENTR: 

r 

i See if this is a usei — defined key 



KEYCHK KC*ENT 
BCS 9* 



i See if this is a user-defined key 
i Sr if user-defined key 



This is not a user-defined key 



9*: 



CLRB SLGOLD 

INCB SLCR 

CALL ICPCR 
RETURN 



; Reset gold key 

> Say we have received carriage— return 

> Process carriage-return* line-feed 



.SBTTL TCINVL — Invalid function key 
; An invalid function key was pressed. 
TCINVL: 



Ring terminal bell 
CALL RNGBEL 

Clear gold-key flag 
CLRB SLGOLD 

Finished 

RETURN 



i Ring the bell 



iClear gold-key flag 



i 
I 
f 



< 
f 

i 

( 

€ 
4 

i 



TSSLE — 


- TSX-P1 


us Singl 


e Line E 


KEYO 


— Key " 


0" processing 


4 
J. 

2 








3 








4 








5 


003140 


010246 




6 


003142 


010346 




7 


003144 


010446 




8 








9 








10 








11 


003146 






12 


003154 


103426 




x «3 








14 








15 








16 


003156 


105737 


OOOOOOG 


17 


003162 


001005 




IS 








19 








20 








21 








22 


003164 


012704 


0000000 


23 


003170 


004737 


010642' 


24 


003174 


000416 




25 








26 








27 








28 








29 


003176 


105037 


OOOOOOG 


30 


003202 


013704 


OOOOOOG 


31 


003206 


105714 




32 


003210 


001410 




33 








34 








35 








36 


003212 


010402 




37 


003214 


012703 


OOOOOOG 


38 


003220 


112223 




39 


003222 


001376 




40 








41 








42 








43 


003224 


105014 




44 








45 








46 








47 


003226 


004737 


010336' 


48 








49 








50 








51 


003232 


012604 




52 


003234 


012603 




53 


003236 


012602 




54 


003240 


000207 
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. SBTTL KEYO — Key 
Key O — Bline / Open line 



'U' 



processing 



KEYO: 



MOV 
MOV 
MOV 



R2, -<SP> 
R3, -<SP) 
R4, -(SP) 



See if this is a user-defined key 



KEYCHK KC*KPO 
BCS 9* 



i See if this is a user-defined key 
i Br if user-defined key 



See if the gold key mas pressed 



TSTB 
BNE 



SLGOLD 
1* 



.Was the gold key pressed? 
iBr if yes 



Gold key was not pressed. 
Move cursor to front of line. 



MOV #SLEBUF, R4 
CALL CHRPOS 
BR 9* 



i Set cursor to front of line 
; Position the cursor 



Gold key was pressed. 

Delete from cursor to end of line. 



1*: 



CLRB 


SLGOLD 


MOV 


SLCX, R4 


TSTB 


<R4) 


BEQ 


9* 



;Clear gold-key flag 

;Get cursor position index 

; Are we already at the end of the line? 

; Br if yes 



Move deleted characters to holding buffer 



3*: 



MOV 


R4, R2 


MOV 


#SLDBUF, R3 


MOVB 


<R2>+, (R3>+ 


BNE 


3* 



Truncate the line 

CLRB <R4) 
Display the truncated line 

CALL PAINT 



i Get cursor pointer 

; Point to holding buffer 

i Move chars to holding buffer 

; Loop till null moved 



/Truncate the line at the cursor position 



^Redisplay the line 



Finished 



9*: 



MOV 
MOV 
MOV 
RETURN 



(SP)+, R4 
(SP)+, R3 
(SP)+, R2 



( 
( 



' ( 

c 

i 

!« 

c 

< 

I 

* 
( 

i 

i 



TSSLE — TSX-P1 


us Singl 


e Line E 


KEY1 — Key " 


1" processing 


1 
2 






3 






4 






5 003242 


010446 




6 






7 






8 






9 003244 






10 003252 


103526 




11 






12 






13 






14 003254 


105737 


0000000 


15 003260 


001053 




16 






17 






18 






19 






20 003262 


013704 


OOOOOOG 


21 003266 


105737 


OOOOOOG 


22 003272 


001021 




23 






24 






25 






26 






27 003274 


112400 




28 003276 


001514 




29 003300 


004737 


011010' 


30 003304 


103405 




31 






32 






33 






34 003306 


1 1 2400 




35 003310 


001410 




36 003312 


004737 


011010' 


37 003316 


103373 




38 






39 






40 






41 003320 


112400 




42 003322 


001403 




43 003324 


004737 


011010' 


44 003330 


103773 




45 003332 


005304 




46 003334 


000422 




47 






48 






49 






50 003336 


020427 


OOOOOOG 


51 003342 


101472 




52 






53 






54 






55 003344 


020427 


0000000 


56 003350 


101414 




57 003352 


114400 
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. SBTTL KEY! — Key "1" processing 



i Key 1 — Word / Change case 

> 

KEY1: MOV R4, -<SP> 

i 

i See if this is a user-defined key 



KEYCHK KC*KP1 
BCS "=>' 



20* 



■> See if this is a user-defined key 
j Br if user-defined key 



See if the gold key was pressed 



TSTB 
BNE 



SLGOLD 
1* 



i Was the gold key pressed' 
; Br if yes 



Gold key was not pressed. 

Move f orward/backward one word. 



MOV 

TSTB 

BNE 



SLCX, R4 

SLBACK 

16* 



i Get current cursor index 

; Moving forward or backward? 

; Br if backward 



Move forward one word. 

See if cursor is pointing to a delimiter now. 



MOVB 
BEG 
CALL 
BCS 



<R4)+, RO 
20* 

CHKDLM 
4* 



; Get char under cursor 

; Br if at end of line now 

; Is current char a delimiter? 

i Br if yes 



Skip characters in word under cursor 



5*: 



MOVB 
BEQ 
CALL 
BCC 



<R4>+, RO 
6* 

CHKDLM 
5* 



.Get next char from word 
; Br if hit end of line 
> Is this char a delimiter? 
i Br if not 



Skip delimiters that follow the word 



4*: 



6*: 



MOVB 

BEQ 

CALL 

BCS 

DEC 

BR 



<R4>+, RO 

6* 

CHKDLM 

4* 

R4 

10* 



Move backward one word 

16*: CMP R4, #SLEBUF 
BLOS 20* 



; Get next char 

; Br if hit end of line 

i Is this a delimiter? 

i Loop to skip all delimiters following word 

; Point to 1st char of new word 



> Are we already at left end of line? 

> Br if yes 



Skip over delimiters to left of cursor. 



7*: CMP R4, #SLEBUF 
BLOS 10* 
MOVB -(R4>,R0 



;Are we at left end of line now? 

; Br if yes 

; Get next char to left 



c 

f 
< 

i 
< 

i 

i 

« 
( 
i 
C 
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i 



t 

I 
I 

i 

i 
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t 

t 

i 
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t 
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TSSLE — 


- TSX-P1 


us Singl 


e Line E 


KEY1 


— Key " 


1" processing 


58 


003354 


004737 


\J1 lGjLU 


59 


003360 


103771 




60 








61 








62 








63 


003362 


020427 


OOOOOOG 


64 


003366 


101405 




65 


003370 


114400 




66 


003372 


004737 


011010' 


67 


003376 


103371 




68 








69 








70 








71 


003400 


005204 




72 








73 








74 








-TBI 


003402 


004737 


010642' 


76 


003406 


000450 




77 








78 








79 








80 


003410 


105037 


OOOOOOG 


81 


003414 


013704 


OOOOOOG 


82 


003420 


111400 




83 


003422 


001440 




84 


003424 


020027 


000141 


85 


003430 


103406 




86 


003432 


020027 


000172 


87 


003436 


101016 




88 


003440 


162700 


000040 


89 


003444 


000410 




90 


003446 


020027 


000101 


91 


003452 


103410 




92 


003454 


020027 


000132 


93 


003460 


101005 




94 


003462 


062700 


000040 


95 


003466 


110014 




96 


003470 


004737 


010336' 


97 








98 








99 








100 


003474 


105737 


OOOOOOG 


101 


003500 


001002 




102 


003502 


005204 




103 


003504 


000404 




104 


003506 


020427 


OOOOOOG 


105 


003512 


101401 




106 


003514 


005304 




107 


003516 


004737 


010642' 


108 


003522 


000402 




109 








110 








111 








112 


003524 


004737 


011154' 


113 








114 
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CALL 
BCS 



CHKDLM 
7* 



j Is this a delimiter:' 

-> Loop to skip over delimiters 



Skio over characters in the word 



8*: 



CMP 


R4, #SLEBUF 


BLOS 


10* 


MOVB 


-<R4),R0 


CALL 


CHKDLM 


BCC 


8* 



i Are me at left end of line yet? 

i Br if yes 

* Get next char to left 

i Is this a delimiter? 

; Loop if not 

Point to 1st char of the word 

INC R4 i Point to 1st char of the word 

Position cursor at start of word 

10*: CALL CHRPOS ; Position cursor at 1st char of word 



CALL 
BR 



CHRPOS 
20* 



1*: 



11*: 



Gold key 1 — Change case of character under the cursor 



Clear the gold-key flag 
Get current cursor index 
Get char under the cursor 
Br if at right end of line 
Is this a lower-case letter? 
Br if not 

; Br if not 

; Convert lower-case to upper-case 

-, Is this a upper-case letter? 
; Br if not 



14*: 



CLRB 


SLGOLD 


MOV 


SLCX,R4 


MOVB 


(R4>,R0 


BEQ 


19* 


CMP 


RO, #141 


BLO 


11* 


CMP 


RO, #172 


BHI 


15* 


SUB 


#40, RO 


BR 


14* 


CMP 


RO, #'A 


BLO 


15* 


CMP 


RO, #'Z 


BHI 


15* 


ADD 


#40, RO 


MOVB 


RO, <R4) 


CALL 


PAINT 



; Br if not 

> Convert upper-case to lower-case 
; Store converted character 
^Redisplay the line 



Advance cursor to next character 



15*: 

12*: 

13*: 

Error — ring bell 
19*: CALL RNGBEL 
' f Finished 



TSTB 


SLBACK 


BNE 


12* 


INC 


R4 


BR 


13* 


CMP 


R4, #SLEBUF 


BLOS 


13* 


DEC 


R4 


CALL 


CHRPOS 


BR 


20* 



> Moving forward or backward? 

; Br if backward 

; Advance cursor pointer 

i Are we at left end of line now? 

j Br if yes 

i Backup the cursor 

i Position cursor to next char 



i Ring the bell 



t 
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i 
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KEY1 — Key "1" processing 



116 003530 012604 20*: MOV <SP>+, R4 

117 003532 000207 RETURN 



I 



c 

i 



i 

< 

t 

4 
t 
t 
t 



LE — 


- TSX-PJ 


us Sxngl 


e Line t. 


2 


— Key "2" processing 


1 
2 








3 








4 








5 


003534 


010446 




6 








7 








8 








9 


003536 






10 


003544 


103427 




11 








12 








13 








14 


003546 


105737 


OOOOOOG 


15 


003552 


001020 




16 








17 








IS 








19 








20 


003554 


105737 


OOOOOOG 


21 


003560 


001010 




22 








23 








24 








25 


003562 


013704 


OOOOOOG 


26 


003566 


105724 




27 


003570 


001376 




28 


003572 


005304 




29 


003574 


004737 


010642' 


30 


003600 


000411 




31 








32 








33 








34 


003602 


012704 


OOOOOOG 


35 


003606 


004737 


010642' 


36 


003612 


000404 




37 








38 








39 








40 


003614 


105037 


OOOOOOG 


41 


003620 


004737 


002772 ' 


42 








43 








44 








45 


003624 


012604 




46 


003626 


000207 
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. SBTTL KEY2 — Key "2" processing 
Key "2" — EOL / Del EOL 
KEY2: MOV R4, -<SP) 

See if this is a user-defined key 



KEYCHK KC*KP2 
BCS 20* 



; See if this is a user-defined key 
j Br if user-defined key 



See if gold key was pressed 



3*: 



2*: 



TSTB SLGOLD 
BNE 1* 

Gold key was not pressed. 
Check which direction to move. 

TSTB SLBACK 
BNE 2* 

Move to right end of line. 

MOV SLCX, R4 

TSTB <R4> + 

BNE 3* 

DEC R4 

CALL CHRPOS 

BR 20* 

Move to left end of line. 

MOV #SLEBUF, R4 
CALL CHRPOS 
BR 20* 



; Was the gold key pressed? 
; Br if yes 



i Move to left or right end of line? 
> Br if moving to left end 



; Get current cursor pointer 

> Search for null at the end of the line 

; Point to the null 

i Position cursor to end of line 



; Point to left end of line 
.Position cursor there 



Gold key 2 — Delete to end of line 



1*: CLRB SLGOLD 
CALL TCPF4 

Finished 

20*: MOV <SP>+, R4 
RETURN 



iClear gold-key flag 

> Process exactly like PF4 key 



TSSLE — 


- TSX-P1 


us Singl 


e Line E 


KEY3 


— Key " 


3" proce 


ssing 


4 

X 

2 








3 








4 








5 








6 








7 








8 


003630 


010446 




9 








10 








11 








12 


003632 






13 


003640 


103432 




14 








15 








16 








17 


003642 


105737 


0000000 


IS 


003646 


001023 




19 








20 








21 








22 


003650 


004737 


011602" 


23 


003654 


103420 




24 








25 








26 








27 


003656 


013704 


OOOOOOG 


28 


003662 


105737 


0000000 


29 


003666 


001004 




30 








31 








32 








33 


003670 


105714 




34 


003672 


001415 




35 


003674 


005204 




36 


003676 


000404 




37 








38 








39 








40 


003700 


020427 


OOOOOOG 


41 


003704 


101410 




42 


003706 


005304 




43 


003710 


004737 


010642' 


44 


003714 


000404 




45 








46 








47 








48 


003716 


004737 


011154' 


49 


003722 


105037 


OOOOOOG 


50 








51 








52 








53 


003726 


012604 




54 


003730 


000207 
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. SBTTL KEY3 — Key "3" processing 

> Key "3" — VT100: Advance by character. VT52: invalid 

i 

> Inputs: 

i Rl = Job index number. 

i 

KEY3: MOV R4, -<SP> 

> 

; See if this is a user-defined key 



KEYCHK KC*KP3 
BCS 9* 



;See if this is a user-defined key 
; Br if user-defined key 



Don't allow gold key with key 3. 



TSTB SLGOLD 
BNE 8* 

Key 3 is invalid for VT52 

CALL CHK52 
BCS 8* 

Advance/Backup 1 character 

MOV SLCX, R4 
TSTB SLBACK 
BNE 1$ 

Advance one character 

TSTB (R4) 

BEG 9* 

INC R4 

BR 2* 

Backup cursor one character 

CMP R4, #SLEBUF 

BLOS 9* 

DEC R4 

CALL CHRPOS 

BR 9* 

Error — Ring the bell 

CALL RNGBEL 
CLRB SLGOLD 

Finished 

9*: MOV <SP>+, R4 
RETURN 



1*: 



2*: 



8*: 



; Was gold key pressed' 
; Br if yes — invalid 



i Is this a VT52? 
; Br if it is 



•Get current cursor pointer 
; Advance or backup? 
; Br if backup 



.Are u>e at right end of line now? 

} Br if yes 

; Advance cursor 



j Are we at left end of line now? 

i Br if yes 

; Backup the cursor 

.Display cursor at correct position 



.Ring the bell 

;Clear the gold key flag 
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— Key "4" processing 



003732 



003732 

003740 103410 



003742 105737 OOOOOOG 
003746 001003 



003750 105037 OOOOOOG 
003754 000402 



003756 004737 002600' 



003762 000207 



. SBTTL KEY4 — Key "4" processing 
Key "4" — Set forward direction / Move to right end of line. 
KEY4: 

See if this is a user-defined key 



KEYCHK KC*KP4 
BCS 9* 



; See if this is a user-defined key 
i Br if user-defined key 



See if the gold key was pressed 



TSTB 
BNE 



SLGOLD 
1* 



i Was gold key pressed? 
> Br if yes 



Gold key was not pressed — Set forward direction 

; Set forward direction 



CLRB 
BR 



SLBACK 
9* 



Gold key was pressed — Move to the right end of the line 
1*: CALL TCRITE /Process just like right-arrow key 

Finished 
9*: RETURN 
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KEYS — Key "5" processing 



i 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 



003764 



003764 

003772 103411 



003774 105737 0000006 
004000 001004 



004002 112737 000001 OOOOOOG 
004010 000402 



004012 004737 002516' 



004016 000207 



. SBTTL KEYS — Key "5" processing 
Key "5" — Set backward direction / Move to left end of line 
KEYS: 

See if this is a user-defined key 



KEYCHK KC*KP5 
BCS 9* 



; See if this is a user-defined key 
; Br if user-defined key 



See if the gold key was pressed 



TSTB SLGOLD 
BNE 1* 



;Was gold key pressed? 
; Br if yes 



Gold key not pressed — Set backward direction. 



MOVB #1,5LBACK 
BR 9* 



< Set backward direction 



Gold key was pressed — Move to left end of line 
1*: CALL TCLEFT > Treat just like left-arrow key 

Finished 
9*: RETURN 
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TSSLE 
KEY6 



3 

4 
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9 
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11 
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14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 



004020 



004020 

004026 103411 



004030 004737 011602 
004034 103002 



004036 000137 004154' 



004042 004737 011154' 
004046 105037 000000G 
004052 000207 
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- Key "6" processing 

. SBTTL KEY6 — Key "6" processing 

Key "6" -- VT100: invalid, VT52: Cun3 delete character 

Inputs: 
Rl - Job index number. 

KEY6: 

See if this is a user-defined key 



KEYCHK KC*KP6 
BCS 9* 



; See if this is a user-defined key 
i Br if user- defined key 



Determine if this is a VT52 or VT100 



CALL 
BCC 



CHK52 
1* 



i Is this a VT52? 
; Br if not 



VT52 — Treat key 6 like VT100 comma key 

JMP KEYCOM ; Treat like comma key 

VT100 — invalid 



1*: CALL RNGBEL 
CLRB SLGOLD 
9*: RETURN 



; Invalid function 
; Reset gold key flag 



c 

t 
c 
f 
i 

« 

< 

c 

i 
< 
f 
4 

* 

i 

C 
c 

i 



( 



TSSLE — 
KEY7 

i 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 
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- Key "7" processing 



004054 



004054 



004064 004737 011154' 
004070 105037 000000G 



004074 000207 



. SBTTL KEY7 — Key "7" processing 

Key "7" — No function 

Inputs: 
Rl = Job index number 



KEY7: 



; See if this is a usei — defined key 



KEYCHK KC*KP7 

BCS 9* 

Not user-defined key 

CALL RNGBEL 

CLRB SLGOLD 

Finished 

9*: RETURN 



; See if this is a user-defined key 
; Br if usei — defined key 



> Ring the bell 
iClear gold-key flag 



TSSLE — 
KEY8 

1 
2 
3 
4 

5 
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7 

a 

9 
10 

u 

12 

13 
14 
15 
16 
17 
18 
19 
20 
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004076 



004076 

004104 103404 



004106 004737 011154' 
004112 105037 000000G 



004116 000207 
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- Key "8" processing 

. SBTTL KEYS — Key "8" processing 

■> Key "8" — No function 

j 

i Inputs: 

; Rl = Job index number 

i 

KEY8: 

i 

i See if this is a user-defined key 



KEYCHK KC*KP8 
BCS 9* 



j See if this is a user-defined ke< 
j Br if user-defined key 



This is not a user-defined key 



CALL RNGBEL 
CLRB SLGOLD 



; Ring the bell 
;Clear gold-key flag 



Finished 
9*: RETURN 
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TSSLE — 
KEY9 

i 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

i3 

i4 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 



004120 



004120 

004126 103411 



004 1 30 004737 Oil 602 ' 
004134 103002 



004136 000137 004262' 



004142 004737 011154' 
004146 105037 OOOOOOG 
004152 000207 
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— Key "9" processing 

. sB i i l. KEy9 — »\ey v processiiii) 

Key "9" — VT100: invalid, VT52: CunD delete word 

Inputs: 
Rl = Job index number. 

KEY9: 

i 

i See if this is a user-defined key 



KEYCHK KC*KP9 
BCS 9* 



i See if this is a user-defined key 
> Br if user "u e f ine u key 



This is not a user-defined key 



CALL CHK52 
BCC 1* 



» Is this a VT52 terminal? 

i Br if not 



VT52 — Treat like VT100 minus key 

JMP KEYMIN i Treat like minus key 

VT100 — Invalid 



1$: CALL RNGBEL 
CLRB SLGOLD 
9*: RETURN 



;Ring the bell 
•Clear gold-key flag 
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KEYCOM — Key ", " processing 



1 
2 
3 
4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 



23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 



004154 
004156 



004160 
004166 



004170 
004174 



004176 
004202 
004206 
004212 
O04214 
004220 
004224 



004226 
004232 
004234 



004236 
004242 
004244 
004250 



004254 
004256 
004260 



010246 
010446 



103432 



105737 
001414 



012702 
004737 
013704 
005304 
004737 
105037 
000413 



013704 
105714 
001407 



111437 
005204 
004737 
004737 



012604 
012602 
000207 



0000000 



OOOOOOG 
010140' 
OOOOOOG 

010642' 
OOOOOOG 



OOOOOOG 



OOOOOOG 

010642' 
007454 ' 



.SBlTL KEYCOM — Key ", " processinj 
Comma key — Cun] delete character 



KEYCOM: MOV 
MOV 



R2, -<SP> 
R4, -<SP> 



See if this is a usei — defined key 



KEYCHK KC*COM 
BCS 9* 



; See if this is a usei — defined key 
; Br if user-defined key 



see if yoid key (Hi-i) was pressed. 



TSTB 
BEQ 



SLGOLD 
1* 



j Was Gold key pressed? 
; Br if not 



Gold key was pressed — put back previously deleted character 

; Point to deleted-charac ter buffer 

» Insert the character 

; Get current cursor pointer 

; Point to character we inserted 

; Position cursor to inserted character 

;Clear Gold-key flag 



MOV 


#SLCBUF, 


CALL 


INSERT 


MOV 


SLCX,R4 


DEC 


R4 


CALL 


CHRPOS 


CLRB 


SLGOLD 


BR 


9* 



Gold key not pressed 



1$: 



MOV 


SLCX, R4 


TSTB 


<R4) 


BEG 


9* 



Delete character under the cursor 

i Get current cursor pointer 

i Is cursor at right end of line? 

i Br if yes 



Save character being deleted and then delete it 



2*: 



9*: 



MOVB 


<R4),SLCBUF 


INC 


R4 


CALL 


CHRPOS 


CALL 


DELLFT 


Finished 




MOV 


(SP)+, R4 


MOV 


<SP>+, R2 


RETURN 





Save character being deleted 
Move cursor right 1 character 

Now delete character to left of cursor 



I 



i 



» < 



TSSLE — TSX-Plus Single Line E 
KEYMIN — Key "-" processing 



2 






3 






4 






5 


004262 


010246 


6 


004264 


010346 


7 


004266 


010446 


8 


004270 


010546 


9 






10 






11 






12 


004272 




13 


004300 


103463 


14 






15 






16 






17 


004302 


013704 OOOOOOG 


18 


004306 


105737 OOOOOOG 


19 


004312 


001041 


20 






21 






22 






23 


004314 


010405 


24 


004316 


112400 


25 


004320 


001453 


26 


004322 


004737 011010' 


27 


004326 


103405 


28 


004330 


1 1 2400 


29 


004332 


001410 


30 


004334 


004737 011010' 


31 


004340 


103373 


32 






33 






34 






35 


004342 


112400 


36 


004344 


001403 


37 


004346 


004737 011010' 


38 


004352 


103773 


39 


004354 


005304 


40 






41 






42 






43 






44 


004356 


010503 


45 


004360 


012702 OOOOOOG 


46 


004364 


1 1 2322 


47 


004366 


020304 


48 


004370 


103775 


49 


004372 


105012 


50 






51 






52 






53 


004374 


010503 


54 


004376 


112423 


55 


004400 


001376 


56 






57 
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. SBTTL KEYMIN — Key "-" processing 
; Minus key — Cun3 delete word 



KEYMIN: MOV 
MOV 
MOV 
MOV 



R2, -<SP> 
R3, -<SP> 
R4, -<SP> 
R5, -<SP> 



See if this is a usei — defined key 



KEYCHK KC*MIN 
BCS 20* 



> See if this is a user-defined key 
i Br jif user = ™u6rin6u key 



MOV 


SLCX, R4 


TSTB 


SLGOLD 


BNE 


1* 



MOV 


R4, R5 


MOVB 


<R4)+, RO 


BEQ 


20* 


CALL 


CHKDLM 


BCS 


3* 


MOVB 


<R4>+, RO 


BEQ 


4* 


CALL 


CHKDLM 


BCC 


2* 



See if the gold key was pressed 

i Get current cursor index 
iWas the gold key pressed? 
; Br if yes 

Gold key was not pressed — Delete the word under the cursor 

Remember starting position of deletion 
Get current char 
Br if at right end of line now 
Is this character a delimiter? 
Br if yes 
2*: MOVB (R4>+, RO * Get next character 

Br if hit right end of line 
Is this character a delimiter? 
Br if not 

Delete delimiters that follow the word 

; Get next character 

j Br if hit right end of line 

; Is this a delimiter? 

; Loop if yes 

iPoint to 1st char of following word 

We have identified the characters to delete. 
Move the characters to a holding buffer. 

; Get index to 1st char to delete 

iPoint to holding buffer 

•Move char to holding buffer? 

; Moved all we need to delete? 

j Loop if not 

; Put null at end of deleted char string 

Delete the characters from the buffer 



3*: 



4*: 



MOVB 


<R4>+, RO 


BEG 


4* 


CALL 


CHKDLM 


BCS 


3* 


DEC 


R4 



5*: 



MOV 


R5# R3 


MOV 


#SLDBUF, R2 


MOVB 


(R3)+, <R2>+ 


CMP 


R3, R4 


BLO 


5* 


CLRB 


(R2) 



6*: 



MOV R5, R3 

MOVB <R4>+, <R3>+ 

BNE 6* 

Redisplay the line 



i Get pointer to 1st char to delete 
i Move remainder of line left 
i Loop till null at end moved 
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TSSLE — 


- TSX-P1 


us Singl 


e Line E 


KEYMIN - 


— Key " 


-" processing 


58 








59 


004402 


010504 




60 


004404 


004737 


010336' 


61 








62 








63 








64 


004410 


004737 


010642' 


65 


004414 


000415 




66 








67 








68 








69 


004416 


105037 


0000000 


70 








71 








72 








73 


004422 


013704 


0000000 


74 


004426 


012702 


OOOOOOG 


75 


004432 


004737 


010140' 


76 


004436 


004737 


010642' 


77 


004442 


000402 




78 








79 








80 








81 


O04444 


004737 


011154' 


82 








83 








84 








85 


004450 


012605 




86 


004452 


012604 




87 


004454 


012603 




88 


004456 


012602 




89 


004460 


000207 





MOV 
CALL 



R5, R4 
PAINT 



Reoosition cursor 



CALL 
BR 



CHRPOS 
20$ 



i Get new position of cursor 
/Redisplay the line 



Resposition cursor 



Gold minus key — Replace deleted word 



1*: CLRB SLGOLD 

/ 

; Insert the deleted word 

SLCX/R4 



MOV 

MOV 

CALL 

CALL 

BR 



INSERT 
CHRPOS 
20* 



; Error — Ring bell 

j 

19*: CALL RNGBEL 

/ 

i Finished 



20*: 



MOV 
MOV 
MOV 
MOV 
RETURN 



<SP>+, R5 
<SP>+, R4 
<SP>+, R3 
<SP>+, R2 



Reset gold-key flag 



;Get current cursor index 

;Point to buffer with deleted text 

; Insert the text 

/Position cursor to front of replaced text 



Ring bell 
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TSSLE — 


- TSX-P1 


us Singl 


e Line E 


KBS 


— Save 


a comman 


d 


X 

2 








3 








4 








5 


004462 


010446 




6 


004464 


010546 




7 








8 








9 








10 


004466 


105037 


ooooooe 


11 


004472 


012704 


ooooooe 


12 


004476 


012705 


0000006 


13 


004502 


112425 




14 


004504 


001376 




15 








16 








17 








18 


004506 


012605 




19 


004510 


012604 




20 


004512 


000207 
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. SBTTL KBS — Save a command 
This routine is called when PF1 S is typed. 



It saves a command. 



KBS: 



2*: 



MOV 


R4, -<SP) 


MOV 


R5, -(SP) 


Save line 




CLRB 


SLOOLD 


MOV 


#SLEBUF> R4 


MOV 


#SLSBUF, R5 


MOVE 


<R4>+, <R5) + 


BNE 


2$ 


Finished 




MOV 


<SP>+, R5 


MOV 


<SP)+, R4 


RETURN 





iClear gold-key flag 

i Point to current line buffer 

i Point to save buffer 

> Save the 1 ine 

; Loop if more to save 
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TSSLE — TSX-Plus Single Line E MACRO V05. 05 Wednesday 18-Jan-89 14:16 Page 36 



KBX 



Recall the saved command 



1 








2 






> 


3 






i 


4 






> 


5 004514 


010546 




V 


6 








7 








8 








9 004516 


012705 


OOOOOOG 




10 004522 


004737 


007704 ' 




11 






i 


12 






f 


13 






i 


14 004526 


012605 






15 004530 


000207 







. SBTTL KBX — Recall the saved command 
This routine is called when PF1 X is typed. It recalls the saved command. 
KBX: MOV R5, -<SP> 
Insert saved line 



MOV #SLSBUF, R5 
CALL RSTLIN 



; Point to buffer with saved line 
i Restore the line 



Finished 



MOV <SP>+, R5 
RETURN 
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El 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 
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- El processing 



004532 



004532 

004540 103404 



004542 004737 011154' 
004546 105037 0000000 



004552 000207 



. SBTTL El 

Process El key. 

Inputs: 
Rl = Job index number. 



El processing 



El: 



See if this is a user-defined key 



KEYCHK KC*E1 
BCS 9* 



; See if this is a user-defined key 
; Br if user-defined key 



This is not a usei — defined key. 
Invalid key. 



CALL RNGBEL 
CLRB SLGOLD 



Finished 
9*: RETURN 



Ring the bell 
Clear gold-key flag 
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— E2 processing 



1 

2 

3 

4 

5 

6 
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18 
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004554 



004554 

004562 103404 



004564 004737 011154' 
004570 105037 OOOOOOG 



23 004574 000207 



. SBTTL E2 
Process E2 key. 



— E2 processing 



Inputs: 
Rl - Job index number. 



See if this is a user-defined key 



KEYCHK KC*E2 
BCS 9* 



* See if this is a user-defined key 
i Br if user-defined key 



This is not a user-defined key. 
Invalid key. 



CALL RNGBEL 
CLRB 5LG0LD 



Fini shed 
9*: RETURN 



i Ring the bell 
;Clear gold-key flag 
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- E3 processing 



004576 



004576 

004604 103404 



004606 004737 1 1 1 54 ' 
004612 105037 OOOOOOG 



004616 000207 



. SBTTL E3 
Process E3 key. 



— E3 processing 



Inputs: 
Rl = Job index number. 



E3: 



See if this is a user-defined key 



KEYCHK KC*E3 
BCS 9* 



/See if this is a user-defined key 
; Br if user-defined key 



This is not a usei — defined key. 
Invalid key. 



CALL 


RNOBEL 


CLRB 


SLGOLD 


> Finished 




9*: RETURN 





Ring the bell 
Clear gold-key flag 
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E4 — E4 processing 
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004620 



004620 



004630 004737 011154' 
004634 105037 OOOOOOG 



004640 000207 



— E4 processing 



E4: 



. auiiL t.*f 
Process E4 key. 



Inputs: 
Rl * Job index number. 



See if this is a usei — defined key 



KEYCHK KC*E4 
BCS 9* 



; See if this is a user-defined key 
i Br if user-defined key 



> This is not a user-defined key. 
; Invalid key. 



CALL RNGBEL 
CLRB SLGOLD 



Finished 
9*: RETURN 



; Ring the bell 
iClear gold-key flag 
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E5 — E5 processing 



2 

3 

4 

5 

6 

7 

S 
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10 
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004642 



004642 

004650 103404 



004652 004737 011154' 
004656 105037 OOOOOOG 



004662 000207 



cbtti ere 

. i3JJ > I J CL\J 

Process E5 key. 



Inputs: 
Rl = Job index number. 



— b.5 processing 



E5: 



See if this is a user-defined key 



KEYCHK KC*E5 
BCS 9* 



; See if this is a usei — defined key 
i Br if user-defined key 



This is not a user-defined key. 
Invalid key. 



CALL RNGBEL 
CLRB SLGOLD 



Finished 
9*: RETURN 



; Ring the bell 
iClear gold-key flag 
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E6 — E6 processing 
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004664 



004664 

004672 103404 



004674 004737 011154' 
004700 105037 0000000 



E6 processing 



E6: 



. 3BTTL E6 

Process E6 key. 

Inputs: 
Rl = Job index number. 



See if this is a user-defined key 



KEYCHK KC*E6 
BCS 9* 



iSee if this is a user-defined key 
; Br if user-defined key 



This is not a user-defined key. 
Invalid key. 



CALL RNGBEL 
CLRB SLGOLD 



23 004704 000207 



Finished 
9*: RETURN 



> Ring the bell 
;Clear gold-key flag 
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F6 — F6 processing 
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F6 processing 



004706 



004706 

004714 103404 



004716 004737 011154' 
004722 105037 0000000 



. SBTTL F6 

i ———————————————— — — — . 

> Process F6 key. 

i 

i Inputs: 

; Rl - Job index number. 

i 

F6: 

i 

> See if this is a user-defined key 



KEYCHK KC*F6 
BCS 9* 



; See if this is a user-defined key 
> Br if user-defined key 



This is not a user-defined key. 
Invalid key. 



CALL RNGBEL 
CLRB SLOOLD 



Finished 
9*: RETURN 



Ring the bell 
Clear gold-key flag 
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F7 — F7 processing 
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F7 processing 



004730 



004730 

nAij70A 1 nnarsA 

VWT / WW ^WWTV I 



004740 004737 01 1 1 54 ' 
004744 105037 000000G 



004750 000207 



F7: 



- SBTTL F7 

Process F7 key. 

Inputs: 
Rl = Job index number. 



See if this is a user-defined key 



KEYCHK KC*F7 



ECJ 



9* 



; See if this is a usei — defined key 



i Br if user-d 



ef ined key 



This is not a user-defined key. 
Invalid key. 



CALL 


RNGBEL 


CLRB 


SLGOLD 


> Finished 




9*: RETURN 





Ring the bell 
Clear gold-key flag 



i i 



i 
i 
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FS — F8 processing 



1 

4> 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



004752 



004752 



004762 004737 1 1 1 54 ' 
004766 105037 000000G 



. SBTTL F8 

Process F8 key. 

Inputs: 
Rl = Job index number. 



FS processing 



F8: 



See if this is a usei — defined key 



KEYCHK KC*F8 
DCS 9* 



;See if this is a user-defined key 

/ jui -Li vj st w t u e i J. i i t u i\ c? u 



This is not a user-defined key. 
Invalid key. 



23 004772 000207 



CALL 


RNGBEL 


CLRB 


SLGDLD 


> Finished 




9*: RETURN 





i Ring the bell 
;Clear gold-key fla< 



I 
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i 
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- F9 processing 

— F9 processing 



004774 



004774 

005002 103404 



005004 004737 1 1 1 54 ' 
005010 105037 0000000 



23 005014 000207 



Process F9 key. 

Inputs: 
Rl = Job index number. 



F9: 



See if this is a user-defined key 



KEYCHK KC*F9 
BCS 9$ 



i See if this is a user-defined key 
i Br if user-defined key 



This is not a user-defined key. 
Invalid key. 



CALL RNGBEL 
CLRB SLODLD 



Finished 
9*: RETURN 



> Ring the bell 
iClear gold-key flag 
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i 

c 
< 
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i 
t 

i 

4 
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i 

i 
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I 
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i 

t 
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i 



TSSLE 
FIO 
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- FIO processing 



1 

2 

3 

4 

5 

6 

7 

8 

? 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 



005016 



005016 

005024 103404 



005026 004737 1 1 1 54 ' 
005032 105037 0000000 



005036 000207 



. SBTTL FIO 
Process FIO key. 






Inputs: 
Rl = Job index number. 



FIO: 



See if this is a user-defined key 



KEYCHK KC*F10 
BCS 9* 



i See if this is a user-defined key 

* *j i * i u3si UcT-iHcru ft ir y 



This is not a user-defined key. 
Invalid key. 



CALL 
CLRB 

Finished 

9*: RETURN 



RNGBEL 
SLGOLD 



;Ring the bell 
;Clear gold-key flag 
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Fli — Fll processing 



i 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

i-j 

14 

15 

16 

17 

18 

19 

20 

21 

22 



005040 



005040 

005046 103404 



005050 004737 1 1 1 54 ' 
005054 105037 OOOOOOG 



005060 000207 



. SBTTL Fli 

Process Fll key. 

Inputs: 
Rl = Job index number. 



Fll processing 



Fll: 



See if this is a usei — defined key 



KEYCHK KC*F11 
BCS 9* 



; See if this is a user-defined key 

i Br if user— defined key 



This is not a user-defined key. 
Invalid key. 



CALL 


R NOB EL 


CLRB 


SLGOLD 


; Finished 




9*: RETURN 





j Ring the bell 
iClear gold-key flag 



TSSLE - 
F12 
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— F12 processing 



1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 



00506= 



005062 

005070 103414 



005072 105737 OOOOOOG 
005076 001005 



005100 112705 000010 
005104 004737 006156 
005110 000404 



005112 105037 0000000 
005116 004737 011154' 



005122 000207 



. SBTTL F12 — F12 processing 
Process F12 key — BS. 



Inputs: 
Rl - Job index number. 



F12: 



See if this is a user-defined key 



KEYCHK KC*F12 
DCS 9* 



i See if this is a user-defined key 
; Br if usei — defined key 



This is not a user-defined key 
See if gold key was pressed 



TSTB 
BNE 



SLGOLD 
5* 



Sold key was not pressed 



MOVB 

CALL 
BR 



#10, R5 

ICPBS 
9* 



5*: 



Gold key was pressed 

CLRB SLGOLD 
CALL RNGBEL 



Finished 
9*: RETURN 



> Wa s gold key pressed? 
j Br if yes 



Get backspace character 
Process backspace character 



i Reset gold key 
; Ring the bell 



4 
I 

i 

t 
4 



TSSLE 
F13 
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— F13 processing 



X 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 



005124 



005124 

005132 103414 



005134 105737 OOOOOOG 
005140 001005 



005142 012705 000012 
005146 004737 005764 
005152 000404 



005154 105037 OOOOOOG 
005160 004737 011154' 



005164 000207 



SBTTL F13 



FIj processing 



; Process F13 key — LF. 

; Inputs: 

i Ri = Job index number. 



F13: 



See if this is a user-defined key 



KEYCHK KC*F13 
BCS 9* 



; See if this is a user—defined key 
> Br if user-defined key 



This is not a user-defined key. 
See if gold key was pressed 



TSTB 
BNE 



SLGOLD 
5* 



Gold key mas not pressed 



MOV 

CALL 

BR 



#12, R5 

ICPLF 

9* 



Gold key tuas pressed 



5*: 



CLRB 
CALL 



SLGOLD 

RNGBEL 



Finished 
9*: RETURN 



; Was gold key pressed? 
; Br if yes 



; Get line-feed character 

; Process line-feed character 



> Reset gold key 
;Ring the bell 
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F14 — F14 processing 

1 . SBTTL F14 — F14 processing 

Process F14 key. 

Inputs: 
Ri = Job index number. 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 



005166 



005166 

005174 103404 



005176 004737 011154' 
005202 105037 OOOOOOG 



005206 000207 



F14: 



See if this is a user-defined key 



KEYCHK KC*F14 



; See if this is a usei — defined key 
; Br if user-defined key 



This is not a user-defined key. 
Invalid key. 



CALL RNGBEL 
CLRB SLGOLD 



Finished 
9*: RETURN 



; Ring the bell 

i Clear gold-key flag 



* 

i 
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t 
i 



TSSLE — 
F15 

1 
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-- F15 processing 

. SBTTL F15 — F15 processing 

Process F15 key — Help. 

Inputs: 
Rl = Job index number. 



005210 



005210 

005216 103404 



005220 004737 011154' 
005224 105037 OOOOOOG 



005230 000207 



F15: 



See if this is a user-defined key 



KEYCHK KC*F15 
BCS 9* 



i See if this is a user-defined key 
i Br if user —defined key 



This is not a user-defined key. 
Invalid key. 



CALL RNOBEL 
CLRB SLGOLD 



Finished 
9*: RETURN 



; Ring the bell 
iClear gold-key flag 
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TSSLE — TSX-Plus Single Line E MACRO V05. 05 Wednesday i8-Jan-89 14:16 Page 53 
Pl£ — F16 processing 

a. . SBTTL Flo — Flo processing 

Process F16 key — Do. 



2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 



005232 



005232 



005242 004737 011154' 
005246 105037 000000G 



005252 000207 



Inputs: 
Rl = Job index number. 



F16: 



See if this is a user-defined key 



KEYCHK KC*F16 
BCS 9* 



iSee if this is a user-defined key 
; Br if user-defined key 



This is not a user-defined key. 
Invalid key. 



CALL 


RNGBEL 


CLRB 


SLGDLD 


i Finished 




9*: RETURN 





; Ring the bell 
iClear gold-key flag 
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F17 — F17 processing 



005254 



A 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 

12 005254 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 



005264 004737 011154' 
005270 105037 OOOOOOG 



005274 000207 



, SB7TL F17 
Process F17 key. 



Inputs: 
Rl == Job index number. 



— F17 processing 



F17: 



See if this is a user-defined key 



KEYCHK KC*F17 
BCS 9* 



i See if this is a user-defined key 
i Br if user-defined key 



This is not a user-defined key. 
Invalid key. 



CALL 
CLRB 

Finished 

9*: RETURN 



RNOBEL 
SLGOLD 



; Ring the bell 
iClear gold-key flag 
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F18 — F18 processing 



2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 
1 r> 

14 
15 
16 
17 
18 
19 
20 
21 
22 
23 



005276 



005276 

VWUUW^ J, WW I w T 



005306 004737 011154' 
00 53 1 2 10 5037 000000G 



005316 000207 



. SBTTL F18 
Process F18 key. 



— F18 processing 



Inputs: 
Rl = Job index number. 



F18: 



See if this is a user-defined key 



KEYCHK KC*F18 
BCS 9* 



i See if this is a user-defined key 
; Br if usei — defined key 



This is not a user-defined key. 
Invalid key. 



CALL 


RNGBEL 


CLRB 


SLGOLD 


> Finished 




9*: RETURN 





i Ring the bell 
;Clear gold-key flag 



c 
c 

i 
« 
t 

i 

€ 

4 

t 

4 

i 
i 
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F19 — F19 processing 



i 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 005340 000207 



005320 



005320 



005330 004737 011154' 
005334 105037 OOOOOOG 



. SBTTL F19 

Process F19 key. 

Inputs: 
Rl = Job index number. 



F19 processing 



F19: 



See if this is a user-defined key 



KEYCHK KC*F19 
BCS 9* 



; See if this is a user-defined key 
; B r if user— defined key 



This is not a user-defined key. 
Invalid key. 



CALL RNOBEL 
CLRB SLGOLD 



Finished 
9*: RETURN 



; Ring the bell 
iClear gold-key flag 
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F20 — F20 processing 



2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



00534c 



005342 

005350 103404 



005352 004737 011154' 
005356 105037 OOOOOOG 



005362 000207 



. SBTTL F20 

Process F20 key. 

Inputs: 
Rl = Job index number. 



n' *"'j f~\ mwh" ^ " c 4 ¥** *•* 



F20: 



See if this is a usei — defined key 



KEYCHK KC*F20 
BCS 9* 



; See if this is a user-defined key 
; Br if user-defined key 



This is not a user-defined key. 
Invalid key. 



CALL RNGBEL 
CLRB SLGOLD 



Finished 
9*: RETURN 



j Ring the bell 
;Clear gold-key flag 
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KEYDOT — Key ". " processing 



•t 

c 

3 

4 

5 005364 

6 

7 

8 

9 005364 
10 005372 103404 
11 
12 
13 
14 

15 005374 004737 011154' 

16 005400 105037 0000000 
17 

18 
19 
20 005404 000207 



. 8BTTL KEYDOT — Key " . " processing 
; Period key — No defined function 

i 

KEYDOT: 

i 

i See if this is a user-defined key 



KEYCHK KC*DOT 
BCS 9* 



; See if this is a user-defined key 
i Br if user-defined key 



This is not a user-defined key. 
Invalid key. 



CALL RNGBEL 
CLRB SLGOLD 



Finished 
9*: RETURN 



j Ring the bell 
iClear gold-key flag 
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TSSLE - 
DOCTRL ■ 
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— Process control characters 

. SBTTL DOCTRL - 



005406 010246 



005410 120537 0000000 

005414 001013 

005416 032761 0000000 OOOOOOG 

005424 001407 

005426 016102 OOOOOOG 

005432 001404 



DOCTRL is called from the input interrupt character processing when 

ine determine that the character being processed is a control character. 

Inputs: 
Rl = Virtual line number. 
R5 = Character to process. 

DOCTRL: MOV R2, -<SP> 

See if this is a request to print the current window 



CMPB 
BNE 

BIT 
BEG 
MOV 
BEG 



R5> VVPWCH i Request to print current window? 

5* > Br if not 

#*PWKEY> LSW11 <R1 ); Is print window control char enabled? 



5* 

LWIND0<R1>, R2 
5* 



Br if not 

Is windowing enabled for this process? 

Br if not 



Request to print the current screen window 



005434 



000425 



OCALL 
BR 



WINPRT 
9* 



; Print the window 



See if this is a request to switch to a virtual line 



005444 120537 OOOOOOG 5*: 

005450 001013 

005452 032761 OOOOOOG OOOOOOG 

005460 001004 

005462 052761 OOOOOOG OOOOOOG 

005470 000412 

005472 042761 OOOOOOG OOOOOOG 2*: 

005500 042761 OOOOOOG OOOOOOG 1*: 



CMPB 


R5, VVLSCH 


BNE 


1* 


BIT 


#*CTRLW, LSW3<R1) 


BNE 


2* 


BIS 


#*CTRLW, LSW3<R1> 


BR 


9* 


BIC 


#*lESCiLSW<Rl) 


BIC 


#*CTRLW,LSW3<R1> 



Is this char a request to switch to vir line? 

Br if not 

Was last char also ctrl-W? 

Br if yes — Treat two ctrl-W like one ctrl-W 

Remember last character was ctrl-W 

Finished with this character 

Say last char was not escape 

Say last char not ctrl-W 



This is an ordinary control character 



005506 010500 
005510 006300 
005512 004770 005522' 



005516 012602 
005520 000207 



9*: 



MOV 


R5, RO 


ASL 


RO 


CALL 


©CTLRTN(RO) 


Finished 




MOV 


<SP)+, R2 


RETURN 





; Get the control character 

> Convert to word table index 

iCall appropriate processing routine 



005522 
005524 
005526 
005530 
005532 
005534 
005536 



007040 ' 
006376 ' 
000614' 
006422 ' 
000614' 
000614' 
000614' 



Branch table for control character processing routines. 

CTLRTN: . WORD ICPNUL > 00 - NUL 

01 - SOH <control-A) 

02 - STX 

03 - ETX <control-C) 

04 - EOT 

05 - ENQ 

06 - ACK 



. WORD 


ICPNUL 


. WORD 


ICPCTA 


. WORD 


REGCHR 


. WORD 


ICPCTC 


. WORD 


REGCHR 


. WORD 


REGCHR 


. WORD 


REGCHR 
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58 


005540 


000614' 


59 


005542 


006156' 


60 


005544 


000614' 


61 


005546 


005764 ' 


62 


005550 


000614' 


63 


005552 


000614' 


64 


005554 


005622' 


65 


005556 


000614' 


66 


005560 


000614' 


67 


005562 


000614' 


68 


005564 


000614' 


69 


005566 


006524 ' 




005570 


000614' 


71 


005572 


000614' 


72 


005574 


006560 ' 


73 


005576 


000614' 


74 


005600 


006524 ' 


75 


005602 


000614' 


76 


005604 


000614' 


77 


005606 


006700 ' 


78 


005610 


006274 ' 


79 


005612 


000614' 


80 


005614 


000614' 


81 


005616 


000614' 


82 


005620 


000614' 



WORD 


REGCHR 


WORD 


ICPBS 


WORD 


REGCHR 


WORD 


ICPLF 


WORD 


REGCHR 


WORD 


REGCHR 


WORD 


ICPCR 


WORD 


REGCHR 


WORD 


REGCHR 


WORD 


REGCHR 


WORD 


REGCHR 


WORD 


ICPCTR 


WORD 


REGCHR 


WORD 


REGCHR 


WORD 


ICPCTU 


WORD 


REGCHR 


WORD 


ICPCTR 


WORD 


REGCHR 


WORD 


REGCHR 


WORD 


ICPCTZ 


WORD 


ICPESC 


WORD 


REGCHR 


WORD 


REGCHR 


WORD 


REGCHR 


WORD 


REGCHR 



07 - 

10 - 

11 - 

12 - 

13 - 

14 - 

15 - 

16 - 

17 - 

20 - 

21 - 

22 - 

23 - 

24 - 

25 - 

26 - 

27 - 

30 - 

31 - 

32 - 

33 - 

34 - 

35 - 

36 - 

37 - 



BEL 

Backspace 

TAB 

Line feed 

VT 

FF 

Carriage return 

SO 

SI (control-O) 

DLE 

DC1 <control-Q) 

DC2 <control~R) 

DC3 Ccontrol-S) 

DC4 

NAK <control-U) 

SYN 

ETB (control-W) 

CAN (control-X) 

EM 

SUB <control-Z> 

ESC 

FS 

GS 

RS 

US 



( 
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e 
t 

c 
c 

I 

< 

< 
t 

i 
i 
i 

t 

i 



i 



TSSLE — 
ICPCR - 
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- Carriage-return processing 

. SBTTL ICPCR — Carriage-return processing 

Process Carriage-return character. 

Inputs: 
Rl = Virtual line index number. 
R5 = Current input character. 



00562 



010446 



005624 105737 OOOOOOG 
005630 001003 



005632 105237 OOOOOOG 
005636 000450 



ICPCR: 



MOV 



R4, -<SP> 



If we have not yet gotten line-feed character, set flag and wait 
for line-feed to arrive. 



TSTB 
BNE 



SLCR 
5* 



; Have we seen line-feed yet? 
,: Br if yes 



We have not seen line-feed yet. Set flag and wait for line-feed. 



INCB 
BR 



SLCR 
9* 



; Set flag saying we are waiting for line feed 
; Defer processing until after line feed 



We have received carriage return and line feed. 
See if Gold key has been pressed. 



005640 105037 OOOOOOG 
005644 105737 OOOOOOG 
005650 001407 



005652 105037 OOOOOOG 

005656 013704 OOOOOOG 

005662 105014 

005664 004737 010336' 



005670 004737 007172' 

005674 013704 OOOOOOG 

005700 105724 

005702 001376 

005704 005304 

005706 112724 OOOOOOG 

005712 112724 OOOOOOG 

005716 105014 



005720 112700 OOOOOOG 

005724 004737 011210' 

005730 032761 OOOOOOG OOOOOOG 

005736 001004 

005740 1 1 2700 OOOOOOG 

005744 004737 011210' 



5*: 



;Clear carriage return flag 
/Has gold key been pressed? 
; Br i f not 



Gold key was pressed — Truncate line before terminating it 



CLRB 


SLCR 


TSTB 


SLGOLD 


BEQ 


1* 



CLRB 


SLGOLD 


MOV 


SLCX,R4 


CLRB 


(R4) 


CALL 


PAINT 



Terminate input line. 



1*: 
2*: 



Clear gold-key flag 
Get current cursor pointer 
Truncate edit line 
Redisplay line 



Save the completed input line 
Point to cursor position 
Search for end of line 
Loop till null hit 
Point to null 
Store carriage-return 
And line-feed at end of line 
i Put null at end 

Echo carriage-return & line-feed to terminal 

MOVB #CR» RO ;Get carriage return 

CALL ECHO ;Echo carriage return 

BIT #*NOLF, LSW6<R1 ) > Are we suppressing LP echoing after CR? 

BNE 3* i Br if yes 

MOVB #LF, RO ;Get line-feed character 

CALL ECHO ;Echo line feed 

Signal line completed 



CALL 


SAVLIN 


MOV 


SLCX, R4 


TSTB 


<R4) + 


BNE 


2* 


DEC 


R4 


MOVB 


#CR, <R4>+ 


MOVB 


#LF, <R4) + 


CLRB 


<R4) 






TSSLE — TSX-Plus Single Line E MACRO V05. 05 Wednesday 18-Jan-89 14:16 Page 60-1 
ICPCR — Carriage-return processing 



3S 005750 0047^7 007346 ' 

59 

60 

61 

62 005754 105061 OOOOOOG 

63 

64 

65 

66 005760 012604 

67 005762 000207 



3$: GALL LINFIN > Input line is finished 

i 

i Say that cursor is at left margin 

CLRB LCOL(Rl) ; Say cursor is at left margin 

> Finished 
; 

9$: MOV (SP)+, R4 
RETURN 



i 
i 
t 



< 

t 
C 

< 



c 

f 
t 
i 



TSSLE — 


- TSX-P1 


us Singl 


e Line E 


ICPLF - 


— Line- 


feed processing 


H 

J. 

2 








3 








4 








5 








6 








7 








8 








9 


005764 






10 








11 








12 








13 








14 


005764 


105737 


000000G 


15 


005770 


001314 




16 








17 








18 








19 


005772 


010246 




20 


005774 


010346 




21 


005776 


010446 




22 


006000 


010546 




23 








24 








25 








26 


006002 


105737 


OOOOOOG 


27 


006006 


001407 




28 








29 








30 








31 


006010 


012702 


0000000 


32 


006014 


004737 


010140' 


33 


006020 


105037 


OOOOOOG 


34 


006024 


000447 




35 








36 








37 








38 








39 


006026 


013704 


OOOOOOG 


40 


006032 


010405 




41 


006034 


020527 


OOOOOOG 


42 


006040 


101441 




43 


006042 


114500 




44 


006044 


004737 


011010' 


45 


006050 


103006 




46 








47 








48 








49 








50 


006052 


020527 


OOOOOOG 


51 


006056 


101413 




52 


006060 


120045 




53 


006062 


001773 




54 


006064 


005205 




55 








56 








57 
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. SBTTL ICPLF — Line-feed processing 

Process Line-feed input character. 

Inputs: 
Rl = Virtual line index number. 
R5 = Current input character. 

ICPLF: 

If this is a line feed that is part of a carriage-return/line-feed pair 
then go to do carriage return processing. 



TSTB 
BNE 



SLCR 
ICPCR 



i Is this line feed after a carriage return? 
j Br if yes — Go do carriage return processing 



This is a line feed by itself 



MOV 
MOV 
MOV 
MOV 



R2, -<SP) 
R3, -(SP) 
R4, -<SP> 
R5, -<SP) 



See if Gold key (PF1) mas pressed before line-feed 



TSTB 
BEG 



SLGOLD 
1* 



i Was gold key pressed? 
; Br if not 



MOV 


#SLDBUF, R2 


CALL 


INSERT 


CLRB 


SLGOLD 


BR 


9* 



Gold key was pressed — Replace previously deleted word. 



i Point to delete buffer 
;Replace the deleted word 
; Clear the gold key 



Gold key was not pressed — Delete the word to the left of the cursor. 
Begin by deleting any delimiters immediately to left of cursor. 

1*: MOV SLCX* R4 > Get pointer to character under cursor 

iAre we at left end now? 
; Br if yes 
11*: MOVB -<R5)*R0 ; Get next character to be deleted 

; Is this character a delimiter? 
j Br if not 

Found delimiter to left of cursor. 

Delete all consecutive occurrances of the delimiter. 



MOV 


SLCX, R4 


MOV 


R4, R5 


CMP 


R5, #SLEBUF 


BLOS 


9* 


MOVB 


-<R5),R0 


CALL 


CHKDLM 


BCC 


4* 



3*: 



j Are we at left end of line now? 

; Br if yes 

.See if there are more occurrences of delim 

i Br if yes — keep deleting 



We have now deleted any delimiters to the left of the cursor. 
Begin to delete the word to the left of the cursor. 



CMP 


R5, 


#SLEBUF 


BLOS 


6* 




CMPB 


RO, 


-<R5) 


BEQ 


3* 




INC 


R5 





I 

t 
t 



i 

i 
< 

I* 

€ 

i 

I I 
i 
« 
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« 

( 

i 
i 

t 



TSSLE — 


- TSX-P1 


us Singl 


e Line E 


ICPLF - 


— Line- 


feed processing 


58 








59 


006066 


020527 


000000G 


60 


006072 


101405 




61 


006074 


114500 




62 


006076 


004737 


011010' 


63 


006102 


103371 




64 


006104 


005205 




65 








66 








67 








68 








6? 


006106 


010503 




70 


006110 


012702 


OOOOOOG 


71 


006114 


112322 




72 


006116 


020304 




73 


006120 


103775 




74 


006122 


105012 




75 








76 








77 








78 


006124 


010503 




79 


006126 


112425 




80 


006130 


001376 




81 


006132 


010304 




82 








83 








84 








85 


006134 


004737 


010336' 


86 








87 








88 








89 


006140 


004737 


010642' 


90 








91 








92 








93 


006144 


012605 




94 


006146 


012604 




95 


006150 


012603 




96 


006152 


012602 




97 


006154 


000207 
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4*: 



CMP 


R5, #SLEBUF 


BLOS 


6* 


MOVB 


-<R5),R0 


CALL 


CHKDLM 


BCC 


4* 


INC 


R5 



(Have we hit left end of line? 

> Br if yes 

i Get next char to delete 

i Is this character a delimiter? 

i Br if not 

iDon't delete the delimiter 

We have now identified the characters to delete. 

Save characters being deleted in deleted-string buffer. 

Point to left-most character to delete 

Point to deleted-string buffer 

Move chars to holding buffer 

Moved all that need to be deleted? 

Loop if not 

Put null at end of deleted string 

Delete the characters from the buffer 

.Move over characters to right of deleted ones 
i Get new cursor character index 



Redisplay from delete point to right end 



6*: 


MOV 


R5, R3 




MOV 


#SLDBUF, R2 


10*: 


MOVB 


<R3)+, <R2) + 




CMP 


R3» R4 




BLO 


10$ 




CLRB 


(R2) 



MOV 


R5, R3 


7*: MOVB 


<R4)+, <R5) + 


BNE 


7* 


MOV 


R3.R4 


i Redisplay 


1 ine 


CALL 


PAINT 


> Reposition 


cursor 


CALL 


CHRPOS 


; Finished 





> Reposition cursor 



9*: 



MOV 
MOV 
MOV 
MOV 
RETURN 



<SP>+, R5 
<SP>+, R4 
<SP)+, R3 
(SP)+, R2 



c 

c 
i 

i 
i 
f 



i 



TSSLE — 


- TSX-P1 


us Singl 


e Line E 


ICPBS - 


— Backs 


pace processing 


1 
2 








3 








4 








5 








6 








7 








8 


006156 


010446 




9 








10 








11 








12 


006160 


013704 


000000G 


13 


UVJ J. w*r 


105737 


0000000 


14 


006170 


001423 




15 








16 








17 








18 








19 


006172 


105037 


000000G 


20 


006176 


020427 


000000G 


21 


006202 


001402 




22 


006204 


105714 




23 


006206 


001003 




24 


006210 


004737 


011154' 


25 


006214 


000425 




26 


006216 


111400 




27 


006220 


1 i 4464 


000001 


28 


006224 


110014 




29 


006226 


004737 


010336' 


30 


006232 


004737 


010642' 


31 


006236 


000414 




32 








33 








34 








35 








36 


006240 


112400 




37 


006242 


001762 




38 


006244 


105714 




39 


006246 


001760 




40 


006250 


111444 




41 


006252 


110064 


000001 


42 


006256 


004737 


010336' 


43 


006262 


005204 




44 


006264 


004737 


010642' 


45 








46 








47 








48 


006270 


012604 




49 


006272 


000207 
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, SBTTL ICPBS — Backspace processing 

Process a Backspace character. 

Inputs: 
Rl = Job index number. 

ICPBS: MOV R4, -<SP) 

> See if Gold key was pressed 



MOV 

TSTB 

BEG 



SLCX.R4 

SL( 

1* 



i Get cursor pointer 
;Was gold key pressed? 
i Br if not 



3*: 
4*: 



1*: 



Gold key was pressed. 

Exchange character under cursor with character to left of cursor. 

Clear gold-key flag 

Is cursor at left end of line?" 

Br if yes 

Is cursor at right end of line? 

Br if not 

Ring bell 

And ignore command 

Get character under cursor 

Move char to left of cursor to cursor pos 

Store old char to left of old cursor pos 

Redisplay the line 

Position cursor 

Gold key mas not pressed. 

Exchange character under cursor with character to right of cursor. 

Get current char under the cursor 

Br if uie were at right end of line 

Is next character end of line? 

Br if yes 

Move char to right of cursor under cursor 

^Redisplay the line 

/Cursor moves right 1 character 

^Position cursor 



CLRB 


SLGOLD 


CMP 


R4, #SLEBUF 


BEQ 


3* 


TSTB 


<R4) 


BNE 


4* 


CALL 


RNGBEL 


BR 


9* 


MOVB 


(R4), RO 


MOVB 


-<R4>, KR4) 


MOVB 


RO, <R4) 


CALL 


PAINT 


CALL 


CHRPOS 


BR 


9* 



9*: 



MOVB 


(R4)+, RO 


BEQ 


3* 


TSTB 


<R4) 


BEG 


3* 


MOVB 


<R4>, -<R4> 


MOVB 


RO, KR4) 


CALL 


PAINT 


INC 


R4 


CALL 


CHRPOS 


Finished 




MOV 


<SP>+, R4 


RETURN 
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ICPESC — Escape processing 



006274 



2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 

14 006274 

15 006300 

16 006304 

17 006306 

18 006312 

19 006316 
20 

21 

22 

23 006324 

24 

25 

26 

27 

28 

29 

30 

31 

32 006326 

33 006334 

34 006340 

35 006344 

36 006350 
37 

38 
39 
40 
41 
42 
43 
44 

45 006352 

46 006360 

47 006364 

48 006370 

49 006374 



. 3BTTL ICPESC — Escape processing 

Process an Escape character. 

Inputs: 
Rl = Job index number. 
R5 = Escape character. 



ICPESC: 



012700 001216' 

004737 011602' 

103002 

012700 001240' 

010037 0000000 

012737 OOOOOOG OOOOOOG 



000207 



1$: 



Set address of routine to be called to process 1st character after 
escape. 

; Routine for 1st char after escape 

i Is this a VT52 terminal? 

; Br if not 

i Set routine for VT52 

i Address of routine to process next char 

i Set pointer to start of buffer 



MOV 


#EPCH1,R0 


CALL 


CHK52 


BCC 


1* 


MOV 


#EP52, RO 


MOV 


RO, SLCSR 


MOV 


#SLCSBF, SLCSPT 


Finished 




RETURN 





Received a CSI control character from a VT200 terminal. 



Inputs: 
Rl = Job index number. 
R5 = character. 



012737 
012700 
1 1 2720 
010037 
000207 



001304' 
OOOOOOG 
000133 
OOOOOOG 



OOOOOOG ICPCSI 



MOV 

MOV 

MOVB 

MOV 

RETURN 



#EPCH2, SLCSR 
#SLCSBF, RO 
#'C, (R0) + 
RO, SLCSPT 



Set address of routine to process next char 

Get pointer to start of buffer 

Store "t" as 1st char of sequence 

Set pointer into control sequence buffer 



Received a SS3 control character from a VT200 terminal. 



012737 
012700 
112720 
010037 
000207 



001304' OOOOOOG ICPSS3 

OOOOOOG 

000117 

OOOOOOG 



Inputs: 




Rl = Job in 


dex number. 


R5 = Character. 


SS3: MOV 


#EPCH2, SLCSR 


MOV 


#SLCSBF, RO 


MOVB 


#'0, <R0) + 


MOV 


RO, SLCSPT 


RETURN 





i Set address of routine to process next char 

i Get pointer to start of buffer 

i Store "0" as 1st char of sequence 

; Set pointer into control sequence buffer 



t 
f 

c 

i 
i 
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c 

f 

i 
t 

f 

* 
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i 
i 
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TSSLE — TSX-Plus Single Line E MACRO V05. 05 Wednesday 18-Jan-S9 14:16 Page 64 
ICPCTA — Control-A processing 

1 . SBTTL ICPCTA — Control-A processing 

2 ■, 

3 ; Control-A — toggle overstri ke/insert mode 

4 ; 

5 006376 105737 OOOOOOG ICPCTA: TSTB SLOVER > In overstri ke mode now? 

6 006402 001004 BNE 1* ; Br if yes 

7 006404 112737 000001 OOOOOOG MOVB #1, SLOVER i Enter overstrike mode 

8 006412 000402 BR 9* 

9 006414 105037 OOOOOOG 1*: CLRB SLOVER ;Exit overstrike mode 
10 006420 000207 9*: RETURN 



I 
I 

i 



TSSLE — TSX-Plus Single Line E 
ICPCTC — Control-C processing 



i 

2 

3 

4 

5 

6 

7 

8 

9 006422 
10 
11 
12 

13 006422 

14 006426 

15 006430 

16 006434 

17 006442 

18 006444 
19 

20 
21 
22 

23 006446 

24 006452 

25 006454 
26 

27 
28 
29 006460 



005761 
001402 
000137 
032761 
001401 
000207 



006700 ' 
OOOOOOG 
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. SBTTL ICPCTC — Control— C processing 

Process a control-C input character. 

Inputs: 
Rl = Virtual line index number. 
R5 = Current input character. 

ICPCTC: 

If line is a . SCCA> treat control-C like control-Z 

T8T LSCCA(Rl) >Did program do a . SCCA? 

BEQ 3* > Br if not 

JMP ICPCTZ j Treat control-C like control-Z 

OOOOOOG 3*: bit #*scca, lsu»5<rl ) > Suppressing control-c abort (RUN/SCCA) 

beq 2* i BR if no 
return 



30 
31 
32 

33 006464 

34 006472 

35 006474 

36 006476 

37 006504 
38 

39 
40 

41 006512 

42 006520 



012704 OOOOOOG 

105014 

004737 010336' 



004737 011130' 



032737 OOOOOOG OOOOOOG 

001407 

110500 



?*: 



Clear edit buffer 

MOV #SLEBUF, R4 
CLRB <R4) 
CALL PAINT 

Echo " A C" to terminal 

CALL ECOCTL 



; Point to front of edit buffer 
j Say buffer is empty 
; Clear line on screen 



; Echo 



Send » A C" to log file if we are doing logging 



BIT 


#LF*IN, LOGFLG 


BEQ 


1* 


MOVB 


R5, RO 


OCALL 


LOGCHR 


OCALL 


LOGCR 



042761 OOOOOOG 
004737 OOOOOOG 



OOOOOOG 1*: 



;Are me logging input characters? 

; Br if not 

iGet control-C character 

/Log Control-C 

; Log CR-LF 

Stop program execution and enter Kmon 

BIC #*SLINIj LSW7<R1 )> Say SL must reinitialize for next line 
CALL STOP 



i 

4 

I 
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TSSLE - 
ICPCTR • 



2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 
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— Control-R processing 

. SBTTL ICPCTR — Control-R processing 
Process control-R input character. 



006524 010246 
006526 010446 



006530 013702 0000000 
006534 012704 0000000 
006540 004737 010336' 



006544 010204 

006546 004737 010642' 



006552 012604 
006554 012602 
006556 000207 



ICPCTR: MOV 
MOV 



R2, -<SP> 
R4, -<SP> 



Save current cursor position and redisplay the line 



MOV SLCX, R2 
MOV #SLEBUF, R4 
CALL PAINT 

Reposition cursor 



MOV 


R2, R4 


CALL 


CHRPOS 


Finished 




MOV 


<SP>+, R4 


MOV 


<SP>+/ R2 


RETURN 





> Save current cursor character pointer 
/Redisplay entire line 
;Do the display 



/Get original cursor pointer 
/Reposition cursor 



4 
4 

I 



i 
4 
I 

( 
C 
€ 

i 
i 
< 
t 
i 

4 
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4 
4 

4 
4 






TSSLE -- TSX-Plus Single Line E 
ICPCTU — Control-U processing 



1 
2 
3 
4 
5 
6 
7 
8 
9 



006560 

10 006562 

11 006564 
12 

13 
14 

15 006566 

16 006572 
17 

18 
19 

20 006574 

21 006600 

22 006604 

23 006610 
24 

25 
26 
27 

28 006612 

29 006616 

30 006622 
31 

32 
33 

34 006624 

35 006630 

36 006634 

37 006636 

38 006640 

39 006642 
40 

41 
42 

43 006644 

44 006650 

45 006652 
46 

47 
48 

49 006654 

50 006660 
51 

52 

53 

54 006664 

55 

56 

57 



010246 
010346 
010446 



105737 
001407 



OOOOOOG 



012702 OOOOOOG 

004737 010140' 

105037 OOOOOOG 
000427 



013704 
020427 
001422 



012702 
012703 
112223 
020204 
103775 
105013 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



012702 OOOOOOG 

112422 

001376 



012704 
004737 



OOOOOOG 
010336' 



004737 010642' 
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. SBTTL ICPCTU — Control-U processing 

Process a Control-U character. 

Inputs: 
Rl = Virtual line index number. 
R5 = Current input character. 



ICPCTU: MOV 
MOV 
MOV 



R2, -<SP) 
R3, -<SP) 
R4, -<SP) 



See if Gold keg (PF1) was pressed before control-U 



TSTB 
BEQ 



SLGOLD 
3* 



» Was Gold key pressed? 
; Br if not 



Gold key was pressed — Put back previously deleted text 

iPoint to buffer with deleted text 
i Insert in front of cursor 
jClear gold— key flag 
> Finished 

Gold key was not pressed — Delete all characters to left of cursor 
Check to see if there is anything to delete. 



MOV 


#SLDBUF, R2 


CALL 


INSERT 


CLRB 


SLGOLD 


BR 


9* 



3*: MOV SLCX, R4 

CMP R4, #SLEBUF 
BEQ 9* 



; Get pointer to char under cursor 

; Is cursor at left end now? 

> Br if yes — nothing to delete 



Move deleted characters to holding buffer 



1*: 



MOV 


#SLEBUF, R2 


MOV 


#SLDBUF, R3 


MOVB 


(R2)+, (R3) + 


CMP 


R2, R4 


BLO 


1* 


CLRB 


(R3) 



; Point to regular edit buffer 

; Point to deleted-charac ters buffer 

» Save characters being deleted 

; Have we saved all? 

> Br if not 

; Put null at end of delete string 



Delete characters from the buffer 



2*: 



MOV 


#SLEBUF, R2 


MOVB 


(R4)+, <R2) + 


BNE 


2* 



Redisplay the line 

MOV #SLEBUF, R4 
CALL PAINT 

Reposition cursor 

CALL CHRPOS 

Finished 



i Point to start of string to delete 

; Move characters left over deleted ones 

i Loop till all moved 



Redisplay entire line 



/Position cursor 
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ICPCTU — Control-U processing 

58 006670 012604 9*: MOV <SP>+, R4 

59 006672 012603 MOV <SP>+, R3 

60 006674 012602 MOV <SP)+, R2 

61 006676 000207 RETURN 



i 

t 



TSSLE -- TSX-Plus Single Line E 
ICPCTZ -- Control-Z processing 
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4 








5 








6 








7 








8 








9 


006700 


010446 




10 








11 








12 








13 




r\-t n~rr\A 


r\r\r\rsr\r\n- 


14 


006706 


105724 




15 


006710 


001376 




16 


006712 


005304 




17 


006714 


004737 


010642' 


18 








19 








20 








21 


006720 


004737 


011130' 


22 








23 








24 








25 


006724 


1 1 2700 


0000OOG 


26 


006730 


004737 


011226' 


27 


006734 


112700 


000000G 


28 


006740 


004737 


011226' 


29 








30 








31 








32 


006744 


004737 


007172' 


33 








34 








35 








36 


006750 


110524 




37 


006752 


105014 




38 








39 








40 








41 


006754 


004737 


007346 ' 


42 








43 








44 








45 


006760 


012604 




46 


006762 


000207 





, 8BTTL ICPCTZ — Control-Z processing 
Process Control-Z character. 



Inputs: 
Rl = Virtual line index number. 
R5 - Current input character. 

ICPCTZ: MOV R4, -<SP) 

Move cursor to end of line 



1*: 
2*: 



MOV 


3LCX,R4 


TSTB 


<R4> + 


BNE 


2* 


DEC 


R4 


CALL 


CHRPOS 



Echo "*Z" to terminal 
CALL ECOCTL 



> Get current cursor pointer 

; Search for null at end of line 

i Loop till nul 1 hit 

; Point to null 

; Position cursor to end of line 



;Echo " A Z" 



Echo carriage return / line feed 



MOVB 


#CR, RO 


CALL 


ECH02 


MOVB 


#LF, RO 


CALL 


ECH02 



; Get carriage return 

; Echo it 

■Get line feed 

> Echo it 



Save input line up to (but not including) control~Z 

CALL SAVLIN ; Save input line 

Insert control-Z into buffer 



MOVB 
CLRB 



R5, <R4) + 
<R4) 



We have finished input line 

CALL LINFIN 

Finished 

MOV <SP>+, R4 
RETURN 



i Insert control-Z into buffer 
; Put null at end of buffer 



Say iue have finished input line 
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TSSLE — TSX-Plus Single Line E MACRO 
ICPRUB — Rubout processing 



J. 

2 








3 








4 








5 


006764 


010246 




6 








7 








8 








9 


006766 


105737 


0000000 


10 


006772 


001407 




11 








12 








x O 








14 


006774 


012702 


0000000 


15 


007000 


004737 


010140' 


16 


007004 


105037 


000OOOG 


17 


007010 


000411 




IS 








19 








20 








21 


007012 


013702 


OOOOOOG 


22 


007016 


020227 


0000000 


23 


007022 


101404 




24 








25 








26 








27 


007024 


114237 


OOOOOOG 


28 


007030 


004737 


007454 ' 


29 








30 








31 








32 


007034 


012602 




33 


007036 


000207 
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. SBTTL ICPRUB — Rubout processing 
Process a rubout character. 
ICPRUB: MOV R2, -<SP> 

See if Gold key <PF1) uias pressed before rubout. 



TSTB 
BEG 



SLGOLD 

1* 



Gold key was pressed 



MOV 


#SLCBUF, R2 


CALL 


INSERT 


CLRB 


SLGOLD 


BR 


9* 



Gold key was not pressed 



; Was Gold key pressed? 
i Br if not 

Put back previously deleted character 

; Point to deleted-charac ter buffer 

; Insert in 1 ine 

i Clear the Gold-key flag 

; Finished 

• Delete character to left of cursor 



1*: 



MOV 


SLCX,R2 


CMP 


R2. #SLEBUF 


BLOS 


9* 



Get pointer to character under cursor 
Is cursor at left end of line? 
Br if yes 



Save character being deleted and then delete it 



2$: 



9*: 



MOVB 


-<R2),SLCBUF 


CALL 


DELLFT 


Finished 




MOV 


<SP)+, R2 


RETURN 





; Save character being deleted 

; Delete character to left of cursor 



4 
t 
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ICPNUL — Null processing 

1 , 8BTTL ICPNUL — Null processing 

o ; 



3 ; Process a null character 

4 i 

5 007040 000207 ICPNUL: RETURN 






TSSLE - 
INWAIT 



I* 



< 
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i 
i 
4 
I 
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- Wait for input characters 

. SBTTL INWAIT — Wait for input characters 

INWAIT is called to wait for input characters. 

Inputs: 
Rl = Job index number 



007042 



INWAIT: 



007042 042761 OOOOOOG OOOOOOG 
007050 052761 OOOOOOG OOOOOOG 
007056 005237 OOOOOOG 



If we previously suspended input from silo buffer to prevent 
input buffer overrun* reenable input now. 

QIC #$X5TGP» i_SW6<Rl ) : Reenable input from silo buffer 

BIS #*NDICP» LSW10(R1 >; Say line needs input character servicing 

INC NEDCDI 'Say input character processing needed 



Suspend job until activation character is received. 



007062 1*: 

007070 042761 OOOOOOG OOOOOOG 

007076 042761 OOOOOOG OOOOOOG 

007104 004737 OOOOOOG 2$: 

007110 

007116 005761 OOOOOOG 

007122 001017 

007124 032761 OOOOOOG OOOOOOG 

007132 001006 

007134 013761 OOOOOOG OOOOOOG 

007142 013761 OOOOOOG OOOOOOG 

007150 012700 OOOOOOG 4*: 

007154 004737 OOOOOOG 

007160 000751 



OCALL 


SIGWAT ; 


BIC 


#*NOIN, LSW3<R1) ; 


BIC 


#*SUCF, L5W9(R1> J 


CALL 


CHKABT > 


DISABL 




TST 


LACTIV<R1> ; 


BNE 


3* ; 


BIT 


#*N0INT J LSW7<R1>; 


BNE 


4* i 


MOV 


VINTIO, LHIPCT(Rl) 


MOV 


VGUAN1,LITIME<R1> 


MOV 


#S*INWT, RO i 


CALL 


QHDSPN J 


BR 


2* > 



Signal virtual line wait condition 
Allow input to be accepted for line 
No longer in startup command file 
See if job has been aborted 

** Disable ** 

Got any activation chars yet? 

Br if yes 

Is program being run non-interac t ively? 

Br if yes 

; Reset high-priority hit limit for job 

i Reset interactive CPU time limit 

Get waiting-f or-input state 

Suspend job and wait for activation char 
Go check again 



007162 



007170 000207 



There are input characters available 
3*: ENABL i ** Enable ** 

Finished 

RETURN 



i 
t 
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2 








3 








4 








5 








6 


007172 


010246 




7 


007174 


010346 




8 








9 








10 








11 


007176 


012702 


000000G 


12 


007202 


105712 




13 


\J\J * S.WT 


WW A *T WW 




14 








15 








16 








17 


007206 


013703 


000000G 


18 


007212 


020327 


000000G 


19 


007216 


103402 




20 


007220 


012703 


000000G 


21 


007224 


121223 




22 


007226 


001003 




23 


007230 


105722 




24 


007232 


001367 




25 


007234 


000434 




26 








27 








28 








29 








30 


007236 


105722 




31 


007240 


001376 




32 


007242 


013703 


000000G 


33 


007246 


020327 


000000G 


34 


007252 


101002 




35 


007254 


012703 


000000G 


36 


007260 


114243 




37 


007262 


020227 


000000G 


38 


007266 


101367 




39 


007270 


010337 


000000G 


40 








41 








42 








43 


007274 


020327 


000000G 


44 


007300 


101002 




45 


007302 


012703 


000000G 


46 


007306 


105743 




47 


007310 


001402 




48 


007312 


105013 




49 


007314 


000767 




50 








51 








52 








53 


007316 


005037 


000000G 


54 


007322 


005037 


000000G 


55 








56 








57 









3 A VL I N 



SaVtf current input line 



SAVLIN is called to save the current input line as the "last line 1 
which can be recalled later by use of the up-arrow keti. 



SAVLIN: MOV 
MOV 



R2, -<SP> 
R3, -<SP) 



If line is null, there is nothing to save 



MOV #SLEBUF, R2 
TSTB (R2) 
BEQ 9* 



i Point to current line buffer 
; Is current line null? 



4*: 



6*: 



MOV 


SLSPTR, R3 


CMP 


R3, ttSLLEND 


BLO 


6$ 


MOV 


#SLLBUF, R3 


CMPB 


<R2), <R3) + 


BNE 


5* 


TSTB 


(R2) + 


BNE 


4* 


BR 


9* 



i Br if yes ~"~ Don ' t save a nu 11 line 

If current line matches last line, don't push saved lines 

i Point to most recently saved line 

i Gone past end of save buffer? 

i Br if not 

i Wrap to top of buffer 

;Does next char in cur line match saved line? 

; Br if not 

; Have we reached end of current line? 

> Loop if not 

; Line is same as last saved, don't save again 

We want to save the current line in the save buffer. 
Copy to save buffer above previous saved line. 

5*: TSTB <R2) + > Find null at end of current command 

i Point to start of last saved line 
Sf: CMP R3> #SLLBUF ; Gone past top of save buffer? 

j Br if not 

i Wrap around to end of save buffer 
10*; MOVB -CR2)*-<R3> i Copy new line into save buffer 

iCopied all of new line? 

* Br if not 

; Save pointer to start of most recent line 

Now null out the remainder of any command we may have partially covered 

!,!*: CMP R3, #SLLBUF ;Hit top of save buffer? 

i Br if not 

j Wrap around to end of save buffer 
12*: TSTB -(R3) ; Reached null that terminates prev line? 

; Br if yes 

;Null out remainder of saved line 



TSTB 


(R2) + 


BNE 


5* 


MOV 


SLSPTR, R3 


CMP 


R3, #SLLBUF 


BHI 


10* 


MOV 


#SLLEND, R3 


MOVB 


-<R2),-<R3) 


CMP 


R2, #SLEBUF 


BHI 


8* 


MOV 


R3, SLSPTR 



CMP 


R3, #SLLBUF 


BHI 


12* 


MOV 


#SLLEND, R3 


TSTB 


-<R3) 


BEQ 


13* 


CLRB 


(R3) 


BR 


11* 



Reset recall cycle 



13* 



CLR 
CLR 



SLCYC1 
SLCYC2 



> Say no recall cycle active 
Set recall pointer to recall last saved line 
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SAVLIN — Save current input line 






58 007326 013737 000000G OOOOOOG 9*: MOV 5LSPTR, SLLPTR ; Set ptr to next command to recall 

59 007334 105037 0000006 CLRB SLDOWN i Say doum-arrow was not last command C 

60 ; 

61 ; Finished 

62 ; C 

63 007340 012603 MOV <SP)+, R3 

64 007342 012602 MOV <SP)+, R2 

65 007344 000207 RETURN i 

i 

t 
i 

i 

€ 

t 

t 

t 

t 

i 

( 

% 

i 

i 

i 
< 
i 



c 
c 

i 

c 
I 
i 
t 

€ 

C 

4 
t 

< 

C 
1 
< 

( 
( 



TSSLE - 
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TSX-Plus Single Line E 
- Terminate input line 
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, SBTTL LINFIN — Terminate input line 

LINFIN is called when an input line is completely acquired. 

Inputs: 
Rl = Job index number. 



007346 010246 
007350 010346 



LINFIN: MOV 
MOV 



R2, -<SP) 
R3, -<SP) 



007352 
007360 
007362 

007366 



007372 
007400 
007402 
007406 
007410 
007412 
007420 



026127 
103004 
012700 
004737 



032737 
001410 
012702 
112200 
001404 

000772 



OOOOOOG 0000000 

OOOOOOG 
OOOOOOG 



Make sure job priority is not higher than normal (non-single character 
activation) input complete. 

CMP LSTATE(Rl), #S*TTFN; Is prio higher than normal TT input? 

BHIS 3* ;Br if not 

MOV #S*TTFN, RO > Lower priority of this job 

CALL ENQTL ; Requeue at tail of S*TTFN state queue 



If terminal logging is wanted/ log the line now 



OOOOOOG OOOOOOG 3*: 

OOOOOOG 

4*: 



BIT #LF*IN, LQGFLG ; Are we logging input characters? 

BEG. 5* ;Br if not 

MOV #SLEBUF, R2 i Point to line buffer 

MOVB (R2)+, RO i Get next character from the line 

BEG 5* J Br when null hit 



OCALL LOGCHR 
BR 4* 



; Log the character 



; Set up pointer to character string to be passed to program 
> 
007422 012737 OOOOOOG OOOOOOG 5*: MOV #SLEBUF, SLOPTR ; Set pointer for GTSLCH routine 

i 

; Set cursor position at end of line 

i 

007430 113761 OOOOOOG OOOOOOG MOVB SLECOL, LC0L(R1 ) > Remember cursor position at end of line 

i 
; Clear field width activation and field width limit values 



007436 
007442 



007446 
007450 
007452 



005061 
005061 



012603 
012602 
000207 



OOOOOOG 
OOOOOOG 



CLR 

CLR 

Finished 



LFWLIM(Rl) 
LAFSIZ(Rl) 



; No field width limit now 

i No field width activation now 



MOV <SP>+, R3 
MOV (SP)+, R2 
RETURN 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 

13 007454 

14 007456 
15 

16 
17 
IS 

19 007460 

20 007464 

21 007470 
22 



010346 
010446 



23 



25 
26 



007472 
007474 

27 007500 

28 007502 

29 007506 
30 

31 

32 

33 007510 

34 

35 

36 

37 007514 

38 

39 

40 

41 007520 

42 007522 

43 007524 



013704 OOOOOOG 
020427 OOOOOOG 
001413 



005304 

111437 OOOOOOG 

010403 

116323 000001 

001375 



004737 010336' 



004737 010642 



012604 
012603 
000207 



V05. 05 Wednesday 18-Jan-89 14:16 Page 74 
cursor 

. SBTTL DELLFT — Delete character to left of cursor 

DELLFT is called to delete the character to the left of the current 
cursor position and redisplay any characters to the right of the 
deleted character. 

The cursor is left positioned on the character that was to the right 
of the deleted character. 

Inputs: 
SLCX = Pointer to character under the cursor. 
SLCCOL = Column number where cursor is positioned. 



DELLFT: MOV 
MOV 



R3, -<SP> 
R4, -<SP> 



If cursor is already at left-most character then there is nothing 
to do. 



MOV SLCX, R4 
CMP R4, #SLEBUF 
BEG 9* 



; Get pointer to character under cursor 

; Is cursor at left end? 

; Br if at left-mode char — Nothing to delete 



Remove deleted character from buffer 



1*: 



DEC R4 

MOVB (R4),SLCBUF 

MOV R4, R3 

MOVB KR3), (R3> + 

BNE 1* 



i Point to the deleted character 
i Save deleted character 

i Move chars left over deleted char 



9*: 



Redisplay any characters to the right of the deleted character 

CALL PAINT ; Redisplay chars to left of deleted char 

Reposition cursor to character that was to right of one deleted. 
CALL CHRPOS /Reposition cursor 

Finished 

MOV ( SP ) +, R4 
MOV <SP)+, R3 
RETURN 
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SLMVUP • 
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IS 

19 
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21 
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t 



007526 010446 



007530 010504 

007532 020427 OOOOOOG 

007536 103402 

007540 012704 OOOOOOG 

007544 105724 

007546 001371 



007550 020427 OOOOOOG 

007554 103402 

007556 012704 OOOOOOG 

007562 020405 

007564 001411 

007566 105724 

007570 001767 



007572 020427 OOOOOOG 

007576 101002 

007600 012704 OOOOOOG 

007604 005304 



007606 010405 
007610 012604 
007612 000207 



SBTTL SLMVUP 



Move up to previous stored command 



This routine returns a pointer to the previous saved command moving 
in an up-arrow direction. 

Inputs: 
R5 = Pointer to current command. 

Outputs: 
R5 = Pointer to previous command. 

SLMVUP: MOV R4, -<SP) 

> Skip up to the null at the end of the current command 



1*: 



2*: 



MOV 


R5.R4 


CMP 


R4, #SLLEND 


BLO 


2$ 


MOV 


#SLLBUF, R4 


TSTB 


(R4) + 


BNE 


1* 



»Hit end of buffer? 

; Br if not 

; Wrap around to the top 

; Reached null at end of saved command? 

# Br if not 



Now skip over nulls at the end of the command 



3*: 



4*: 



CMP 


R4, #SLLEND 


BLO 


4* 


MOV 


#SLLBUF, R4 


CMP 


R4, R5 


BEG 


9* 


TSTB 


<R4> + 


BEQ 


3* 



;Hit end of buffer? 

> Br if not 

»Wrap around to the top 

; Wrapped around to current cmd? 

; Br if nothing to recall 

; More nulls to skip? 

> Br if so 



» 
> 

i 

5*: 



Point to 1st character of command 



6$: 



9*: 



CMP 


R4, #SLLB 


BHI 


6* 


MOV 


#SLLEND* 


DEC 


R4 


Finished 




MOV 


R4, R5 


MOV 


<SP)+, R4 


RETURN 





; At top of buffer now? 

i Br if not 

i Wrap around to bottom 

; Point to 1st char of next command 



i Return pointer in R5 



TSSLE — 


- TSX-P1 


us Singl 


e Line E 


SLMVDN - 


— Move 


down to 


previous 


4 
1 

2 








3 








4 








5 








6 








7 








8 








9 








10 








11 








12 


007614 


010446 




13 








14 








15 








16 


007616 


010504 




17 


007620 


020427 


OOOOOOG 


18 


007624 


101002 




19 


007626 


012704 


OOOOOOG 


20 


007632 


105744 




21 


007634 


001003 




22 


007636 


020405 




23 


007640 


001367 




24 


007642 


000416 




25 








26 








27 








28 


007644 


020427 


OOOOOOG 


29 


007650 


101002 




30 


007652 


012704 


OOOOOOG 


31 


007656 


105744 




32 


007660 


001371 




33 








34 








35 








36 


007662 


005204 




37 


007664 


020427 


OOOOOOG 


38 


007670 


103402 




39 


007672 


012704 


OOOOOOG 


40 








41 








42 








43 


007676 


010405 




44 


007700 


012604 




45 


007702 


000207 
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. SBTTL SLMVDN — Move down to previous stored command 

This routine returns a pointer to the previous saved command movinj 
in a down-arrow direction. 

Inputs: 
R5 = Pointer to current command. 

Outputs: 
R5 = Pointer to previous command. 

SLMVDN: MOV R4,-(SP) 

Skip over nulls in front of current command 



1*: 



2*: 



MOV 


R5, R4 


CMP 


R4, #SLLBUF 


BHI 


2$ 


MOV 


#SLLEND> R4 


TSTB 


-<R4) 


BNE 


3* 


CMP 


R4, R5 


BNE 


1* 


BR 


9* 



At top of buffer now? 

Br if not 

Wrap around to the bottom 

Is this character null? 

Br if not 

Wrapped around to beginning?' 

Loop if not 

Nothing to recall 



Now skip back to null at front of the prev command 



3*: 



4*: 



CMP 


R4, #SLLBUF 


BHI 


4* 


MOV 


#SLLEND, R4 


TSTB 


-<R4> 


BNE 


3* 



; At top of buffer now? 
; Br if not 

; Wrap around to the bottom 
; Is this character null? 
j Loop if not 



Now move forward to the 1st character of next command 



;Point to next char 
>Past end of buffer? 
; Br if not 
i Wrap around to the top 



5*: INC 


R4 


CMP 


R4, #SLLE 


BLO 


6* 


MOV 


#SLLBUF, 


; Finished 




6*: MOV 


R4, R5 


9*: MOV 


<SP)+, R4 


RETURN 
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/Return pointer in R5 
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RSTLIN — Restore a full line 



1 

2 








3 








4 








5 








6 








7 








8 


007704 


010246 




9 


007706 


010346 




10 


007710 


010446 




11 


007712 


010546 




12 


007714 


010502 




4 r~% 


AATT -t J 


010504 




14 








15 








16 








17 


007720 


105712 




IS 


007722 


001003 




19 


007724 


004737 


011154' 


20 


007730 


000441 




21 








22 








23 








24 


007732 


005005 




25 


007734 


004737 


010046' 


26 


007740 


001402 




27 


007742 


005205 




28 


007744 


000773 




29 








30 








31 








32 


007746 


004737 


010522' 


33 


007752 


020500 




34 


007754 


101403 




35 


007756 


004737 


011154' 


36 


007762 


000424 




37 








38 








39 








40 


007764 


012703 


000000G 


41 


007770 


010402 




42 


007772 


004737 


010046' 


43 


007776 


110023 




44 


010000 


001374 




45 








46 








47 








48 


010002 


012704 


0000000 


49 


010006 


004737 


010336' 


50 








51 








52 








53 


010012 


016102 


000000G 


54 


010016 


001406 




55 


010020 


020502 




56 


010022 


103404 




57 


010024 


004737 


007172' 
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. SBTTL RSTLIN — Restore a full line 

Restore a full line. 

Inputs: 
R5 = Pointer to asciz string to be restored. 



RSTLIN: MOV 
MOV 
MOV 
MOV 
MOV 



R2,-<SP> 
R3, -<SP> 
R4, ~<SP) 
R5, -<SP) 
R5, R2 



Save pointer to line start 



See if there is anything to restore 



TSTB 


<R2) 


BNE 


1* 


CALL 


RNOBEL 


BR 


9* 



» Do we have a saved command? 

; Br if yes 

i Ring bell if not 



Count number of characters in saved line 



1*: 
5*: 



CLR 


R5 


CALL 


RSTCHR 


BEG. 


6$ 


INC 


R5 


BR 


5* 



See if saved line will fit 



6*: 



CALL 


MAXLEN 


CMP 


R5, RO 


BLOS 


4* 


CALL 


RNGBEL 


BR 


9* 



i Count # chars in line 

;Get next char from line buffer 

; Br if yes 

; Count # chars in saved line 

; Keep searching for the end of the line 



; Determine max allowed line length 

iWill saved line fit? 

i Br if yes 

jRing bell if not 



Move saved line to edit buffer 



4*: 
2*: 



MOV 


#SLEBUF> R3 


MOV 


R4, R2 


CALL 


RSTCHR 


MOVB 


RO, <R3) + 


BNE 


2* 



Display the line 

MOV #SLEBUF, R4 
CALL PAINT 



> Point to edit buffer 
; Point to start of saved line 
i Get next char to be restored 
; Move saved char to edit buffer 
; Loop until null moved 



Display entire line 



See if uie should activate due to field width being filled 



; Was field width activation specified? 

i Br if not 

/Does saved line — field width? 

; Br if not 

i Save the complete line 



MOV 


LAFSIZ(R1),R2 


BEG 


9* 


CMP 


R5, R2 


BLO 


9* 


CALL 


SAVLIN 



< 
f 

I 
« 

i 
i 

i 
C 
I 
I 

< 

i 

( 

i 
I 

( 

( 
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i. 


RSTLIN - 


— Restore a full line 


— — _ _ ,, 






58 


010030 


004737 007346 ' 




LINFIN 


f 


59 
60 






* 

i Finished 






61 






» 




i 


62 


010034 


012605 


9*: MOV 


<SP>+, R5 




63 


010036 


012604 


MOV 


<SP)+, R4 




64 


010040 


012603 


MOV 


<SP)+, R3 


( 


65 


010042 


012602 


MOV 


<SP>+, R2 


i 


66 


010044 


000207 


RETURN 





; Input line is complete 



< 
f 

c 

! t 



« 
i 

t 

c 
I 

i 

i 

€ 
4 

( 
< 
i 
f 
t 
« 

t 



t 

€ 



TSSLE — 
RSTLIN - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 
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— Restore a full line 



010046 



010046 112200 



010050 020227 OOOOOOG 

010054 001002 

010056 012702 OOOOOOG 



010062 005700 
010064 000207 



Get the next character from a saved line and handle buffer wraparound. 

Inputs: 
R2 = Points to next character to get. 

Outputs: 
RO = Character we got. 

R2 = Pointer to next character to get. 
Condition codes set for value returned in RO. 

RSTCHR: 

Get the character we want to return 

MOVB <R2)+>R0 iGet character to be returned 



* See if we 


arm getting f 


CMP 




R2, #SLLEND 


BNE 




9* 


MOV 




#SLLBUF, R2 


> Finished 






9$: TST 




RO 


RETURN 





i Are we at end of SLLBUF? 

; Br if not 

; Wrap around to top of SLLBUF 



Set sign for value in RO 






TSSLE — TSX-Plus Single Line E 
OSTRIK — Overstrike 



i 








2 








3 








4 








5 








6 








7 








8 








9 


010066 


010246 




10 


010070 


010446 




11 








12 








13 








14 


010072 


013704 


0000000 


15 


010076 


105714 




16 


010100 


001006 




17 


010102 


012702 


OOOOOOG 


IB 


010106 


110012 




17 


010110 


004737 


010140' 


20 


010114 


000406 




21 








22 








23 








24 








25 


010116 


110014 




26 


010120 


004737 


010336' 


27 








28 








29 








30 


010124 


005204 




31 


010126 


004737 


010642' 


32 








33 








34 








35 


010132 


012604 




36 


010134 


012602 




37 


010136 


000207 
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. SBTTL OSTRIK — Overstrike 

Replace the character under the cursor with a new < overstri king ) character. 

Inputs: 
RO = New <overstriking ) character. 
Rl - Job index number. 



OSTRIK: MOV 
MOV 



R2, -<SP) 
R4, -<SP> 



If we are positioned to the end of the line* do an insert 

Get pointer to char under cursor 

At end of line now? 

Br if not 

Point to char buffer 

Store char into insert buffer 

Insert the character 



We are positioned in the middle of the line. 
Replace the character being overstruck. 



MOV 


SLCX, R4 




TSTB 


<R4) 




BNE 


1* 




MOV 


#SLCBUF, 


R2 


MOVB 


RO, <R2> 




CALL 


INSERT 




BR 


9* 





1*: 



MOVB 
CALL 



RO, <R4) 
PAINT 



Reposition the cursor 



9*: 



INC 


R4 


CALL 


CHRPOS 


Finished 




MOV 


<SP>+, R4 


MOV 


<SP>+, R2 


RETURN 





; Replace char being overstruck 
^Redisplay the line 



Position past overstrike 
Reposition cursor 



i 

i 

i 

t 

i 

c 

( 
< 
t 
< 

t 

i 

i 

i 

i 
f 



i 



TSSLE - 
INSERT • 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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— Insert string into edit buffer 

. SBTTL INSERT — Insert string into edit buffer 



010140 010246 

010142 010346 

010144 010446 

010146 010546 



010150 010203 

010152 105723 

010154 001376 

010156 160203 

010160 005303 

010162 003003 



010164 004737 011154' 
010170 000455 



010172 013705 0000000 

010176 010504 

010200 105724 

010202 001376 



010204 010405 

010206 162705 00000 1G 

010212 060305 

1 02 1 4 004737 1 0522 ' 

010220 020500 

010222 101403 



010224 004737 011154' 
010230 000435 



INSERT is called to insert an asciz text string into the edit string. 
The text is inserted immediately to the left of the cursor position. 
After the insertion is made> the line is redisplayed and the cursor 
is left pointing to the right of the inserted string. 



Inputs: 
Rl = Job index number. 
R2 = Pointer to asciz string to be inserted. 



INSERT: MOV 
MOV 
MOV 
MOV 



R2, -<SP) 

R3, -<SP> 
R4, -<SP) 
R5, -<SP> 



Count number of characters in string being inserted 



1*: 



MOV 


R2, R3 


TSTB 


(R3) + 


BNE 


1* 


SUB 


R2, R3 


DEC 


R3 


BOT 


7* 



; Get pointer to insert string 

» Search for null at end of string 

i Loop till null hit 

.Get length of string 

; Don't count null at end 

> Br if there are some characters to insert 



There are no characters in string being inserted 



CALL 
BR 



RNGBEL 
9* 



■> Ring the bell 
i We are finished 



Locate the end of the current edit line 

7*: MOV SLCX. R5 i Get pointer to character under cursor 

MOV R5, R4 

2*: TSTB <R4)+ i Search for null at end of string 

BNE 2* 

See if there is enough free space remaining in edit buffer to do 
the insertion. 

Get pointer past null 

Calc number of characters in current string 

Add # characters in insert string 

Compute maximum allowed line length 

Compare line with insert uiith max allowed 

Br if ok 

There is not enough space for the insertion 



MOV 


R4, R5 


SUB 


#SLEBUF+1, R5 


ADD 


R3>R5 


CALL 


MAXLEN 


CMP 


R5, RO 


BLOS 


3* 



CALL 
BR 



RNGBEL 
9* 



Ring bell 



There is enough space to do the insertion. 

Move characters over to make room for the insertion. 



010232 010405 
010234 060305 



3*: 



MOV 
ADD 



R4, R5 
R3, R5 



i Pointer past null at end of current string 
;Add number of characters to be inserted 



< 

C 
I 

i 

f 
I 

c 
< 

i 
€ 

4 
C 
t 
« 






( 
« 

( 



l« 



i 
t 



< 
( 

4 
t 
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INSERT — Insert string into edit buffer 



58 010236 

59 010240 

60 010244 
61 

62 
63 

64 010246 

65 010250 

66 010252 
67 

68 

69 

70 010254 

71 

72 

73 

74 010260 

75 010262 
76 

77 
78 
79 

80 010266 

81 010272 

82 010274 

83 010300 

84 010302 

85 010304 

86 010310 

87 010312 

88 010314 

89 010320 
90 

91 
92 

93 010324 

94 010326 

95 010330 

96 010332 

97 010334 



114445 
020437 
101374 



010405 
112225 
077302 



OOOOOOG 



004737 010336' 



010504 
004737 



010642 



016102 
001414 
013703 
105723 
001376 
162703 
020302 
103404 
004737 
004737 



012605 
012604 
012603 
012602 
000207 



OOOOOOG 



OOOOOOG 



00000 1G 



007172' 
007346 ' 



4*: MOVB -<R4),-<R5> 

CMP R4, SLCX 

BHI 4* 

Insert the string 



5*: 
6*: 



Redisplay the line 

wAi_k_ rnlNT 

Reposition the cursor 



MOV 


R4, R5 


MOVB 


<R2>+, (R5) + 


SOB 


R3, 6* 



> Move characters to right 
; Have we moved enough? 
; Br if not 



.Get pointer to insertion point 
i Insert the string 



MOV 
CALL 



R5, R4 
CHRPOS 



— n 1 — , , 4- U _ — *| » X. 1 J -.. ~ 

s p a a y i/fier e u j. i, ± x 1 1 tf 



i Get desired cursor position 
j Reposition cursor 



8$: 



Count total number of characters in the line and see if we should 
activate due to field-width activation. 

Is field-width activation in effect? 

Br if not 

Point to cursor position 

Is there another character in buffer? 

Loop till null hit 

Calc total number of characters in string 

Have we reached activation size yet? 

Br if not 

Save input line 

Completed input line 



9*: 



MOV 


LAFSIZ(Rl), R2 


BEG 


9* 


MOV 


SLCX, R3 


TSTB 


<R3> + 


BNE 


8* 


SUB 


#SLEBUF+1, R3 


CMP 


R3, R2 


BLO 


9* 


CALL 


SAVLIN 


CALL 


LINFIN 


inished 




MOV 


(SP)+, R5 


MOV 


<SP)+, R4 


MOV 


(SP)+, R3 


MOV 


<SP)+, R2 


RETURN 





i 
i 
t 

i 

i 



c 
t 

i 



010564' 
010664' 



OOOOOOG 



000010 
000007 



000040 
011210' 



011210' 
000037 



OOOOOOG 
OOOOOOG 



PAINT: 



1*: 



TSSLE — TSX-Plus Single Line E MACRO V05. 05 
PAINT — Redisplay current edit line 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 

14 010336 010246 

15 010340 010346 

16 010342 010446 

17 010344 010546 
18 

19 
20 

21 010346 004737 

22 010352 004737 
23 

24 
25 

26 010356 112400 

27 010360 001427 

28 010362 120027 

29 010366 001015 
30 

31 
32 
33 

34 010370 010300 

35 010372 062703 

36 010376 042703 

37 010402 010302 

38 010404 160002 

39 010406 112700 

40 010412 004737 

41 010416 077203 

42 010420 000756 
43 

44 
45 

46 010422 004737 

47 010426 120027 

48 010432 101751 

49 010434 005203 

50 010436 000747 
51 

52 
53 
54 

55 010440 005304 

56 010442 010437 

57 010446 013702 
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SBTTL PAINT — Redisplay current edit line 



PAINT is called to redisplay all or a portion of the current edit line. 
The cursor is left pointing beyond the right end of the line. 

Inputs: 
Rl = Job index number. 
R4 = Pointer to character where redisplay is to begin. 



Outputs: 
SLCX - Pointer to null at end of edit string. 
SLCCOL = Cursor position at end of line. 



MOV 
MOV 
MOV 
MOV 



R2, -<SP) 
R3, -<SP) 
R4, -<SF> 
R5, -<SP> 



Position cursor to point where display is to begin 



CALL 
CALL 



COLCLC 
CURPOS 



i Calculate position inhere redisplay begins 
i Position cursor there <R3 has column number) 



Begin loop to display each character. 



<R4)+,R 


5* 




RO, 


#TAB 


3* 





* Get next character to display 
» Br if hit end of string 
; Is this a tab? 
; Br if not tab 



Character being displayed is a tab. 
Convert to spaces. 



2*: 



MOV 


R3, RO 


ADD 


#8. , R3 


BIC 


#7, R3 


MOV 


R3, R2 


SUB 


RO, R2 


MOVB 


#' ,R0 


CALL 


ECHO 


SOB 


R2, 2* 


BR 


1* 



Character is not a tab 



3*: 



CALL 


ECHO 


CMPB 


RO, #37 


BLOS 


1* 


INC 


R3 


BR 


1* 



; Save position at start of tab field 
{Calculate position beyond end of tab field 



; Get # spaces needed to simulate the tab 

i Get a space character 

; Send the space 

i Send as many as needed for tab 



; Send the character to the terminal 

; Is this a printing character? 

> Br if not 

; Advance column number 



We finished displaying all characters in buffer. 

See if we need to display blanks to wipe out deleted characters at end. 



5*: 



DEC 
MOV 
MOV 



R4 

R4, SLCX 

5LEC0L, R2 



iPoint back to null at end of line 

i Save index where we want to leave cursor 

; Get old end-of-line column number 



I 
f 



c 
t 
c 
I 
t 
c 

< 

i 

i 
< 
i 
i 
t 
i 

i 
i 



I 

( 

i 

i 
< 
i 



)* 



i 



< 
i 

i 

t 
i 
( 

( 
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PAINT — Redisplay current edit line 



58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 



010452 160302 
010454 003411 



010456 010204 

010460 116100 OOOOOOG 

010464 004737 011210' 

010470 077203 



010472 004737 
010476 077403 



010500 010337 OOOOOOG 
010504 010337 OOOOOOG 



010510 012605 

010512 012604 

010514 012603 

010516 012602 

010520 000207 



SUB 
BLE 



R3« R2 
7* 



» Do we need to erase any old chars? 
; Br if not 



6*: 



Display blanks to erase any characters that used to be at end of line 

; Save number of columns being erased 

; Get rubout-f iller character for this line 

; Send the space 

; Loop for as many as needed 



MOV 


R2, R4 


MOVB 


LRBFIL<R1>, RO 


CALL 


ECHO 


SOB 


R2, 6* 



8*: 



Now leave cursor positioned at end of line 

Wfii_i_ ^oKLr I » ilOvcr v. u i =>ui 

SOB R4/ 8* > Move back over erased characters 

Save information about column positions. 



7*: 



MOV 
MOV 

Finished 



9*: 



MOV 

MOV 
MOV 
MOV 
RETURN 



R3, SLCCOL 
R3, SLECOL 



<SP)+, R5 
(SP)+, R4 
<SP>+, R3 
<SP)+, R2 



; Cursor position 
iEnd-of-line column 



t 
I 

f 



< 
1 

f 

t 

« 

4 
« 

t 
i 
i 



i 
t 
I 



c 

< 
f 



> 



4 



TSSLE - 
MAXLEN 



2 
3 
4 
5 
6 
7 

e 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
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- Compute maximum allowed line length 



010522 010246 



010524 012700 OOOOOOG 



010530 016102 OOOOOOG 

010534 001403 

010536 020002 

010540 101401 

010542 010200 



010544 016102 OOOOOOG 

010550 001403 

010552 020002 

010554 101401 

010556 010200 



010560 012602 
010562 000207 



. SBTTL MAXLEN — Compute maximum allowed line length 

MAXLEN is called to compute the maximum length allowed for an 
edit line. It takes into consideration the following constraints: 

1. Size of edit line buffer. 

2. Field width limit size. 

3. Field with activation sire. 

Inputs: 
Rl - Job index number. 

Outputs: 
RO = Maximum line length. 

MAXLEN: MOV R2, -<SP> 

Start with edit buffer length. 

MOV #SLMXLN, RO ; Length of edit buffer 

See if a field width limit is in effect. 

i Is a field width limit in effect? 

* Br if not 

; Is current limit smaller? 

> Br if yes 

j Use field width limit 



MOV 


LFWLIM(Rl), R2 


BEQ 


1* 


CMP 


RO, R2 


BLOS 


1$ 


MOV 


R2,R0 



See if field width activation is in effect. 



1*: 



2*: 



MOV 


LAFSIZ<R 


BEQ 


2$ 


CMP 


RO, R2 


BLOS 


2* 


MOV 


R2, RO 


Finished 




MOV 


<SP>+, R2 


RETURN 





i Is field width activation in effect? 

> Br if not 

i Is current limit smaller? 

; Br if yes 

i Use field activation width as limit 



f 
4 

r 

« 

t 

€ 
f 

( 

I 

t 

4 

i 
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I 

I 

i 

f 

4 



TSSLE - 
COLCLC • 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
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— Calculate column position of a character 



010564 010246 



010566 012702 OOOOOOG 
010572 013703 OOOOOOG 



010576 020204 
010600 103016 



010602 112200 

010604 120027 OOOOOOG 

010610 001005 



010612 062703 000010 
010616 042703 000007 
010622 000765 



010624 120027 000037 

010630 101762 

010632 005203 

010634 000760 



010636 012602 
010640 000207 



. SBTTL COLCLC — Calculate column position of a character 

COLCLC is called to compute the display column position of a specified 
character in the edit buffer. 

Inputs: 
R4 = Pointer to character whose position is to be computed. 

Outputs: 
R3 = Column position of the character. 

COLCLC: MOV R2, -<SP> 

Initialize character info 



MOV #SLEBUF> R2 
MOV SLSCOL, R3 



; Get pointer to start of edit buffer 
; Get col # of left-most character 



Loop through all characters counting columns 



If: 



CMP 
BHIS 



R2, R4 

4* 



Get next character to check 



MOVB 
CMPB 
BNE 



<R2>+, RO 
RO, #TAB 
2* 



.Have we reached character of interest? 

i Br if yes 



; Get next character 
; Is character a tab? 
i Br if not 



Character is tab. 



ADD 
BIC 
BR 



#8. , R3 
#7, R3 
1$ 



Advance to next tab stop. 

; Advance to next tab stop 



Character is not tab. 

See if it is a printing character. 



2*: 



4*: 



CMPB 
BLOS 
INC 
BR 

Finished 

MOV 
RETURN 



RO, #37 
1* 
R3 
1* 



<SP>+, R2 



; Is this a printing or control character? 

; Br if control character 

i Count one column for the character 

> Go process more characters 



i 

« 
I 

i 

< 
4 
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1 

* 

2 

3 

4 

5 

6 

7 

8 

9 010642 010346 
10 
11 

12 

in ntnA44 nnA7i7 nm«iz.4' 

14 

15 

16 

17 010650 004737 010664' 

18 

19 

20 

21 010654 010437 000000G 

22 

23 

24 

25 010660 012603 

26 010662 000207 



. SBTTL CHRPOS — Move cursor to a specific character 

; CHRPOS is called to position the cursor to a specified character in the 
■> edit buffer. 

; Inputs: 

; R4 = Pointer to character to which cursor is to be positioned. 

> 

CHRPOS: MOV R3, -<SP) 

i 

; Calculate position of desired character 

i 

CALL COLCLC > Calculate col position of character 

i 

> Position cursor there 

i 

CALL CURPOS ; Position cursor 

> Remember which character cursor is pointing to 
i 

MOV R4» SLCX ; Save current cursor pointer 

i 

> Finished 
> 

MOV <SP>+, R3 
RETURN 



c 
i 
i 

i 

i 
< 

t 
i 
< 

i 
t 

« 

< 
t 

i 
« 
i 



( 



I 

I 



» ( 



h 



( 
I 

I 
i 



TSSLE — 
CURPOS - 
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12 
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14 
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37 

38 

39 
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— Move cursor to a specified column 



010664 010246 



010666 010302 

010670 163702 OOOOOOG 

010674 001413 

010676 002404 



010700 004737 010730' 
010704 077203 
010706 000404 



010710 005402 

010712 004737 010776' 

010716 077203 



010720 010337 OOOOOOG 



010724 012602 
010726 000207 



. SBTTL CURPOS — Move cursor to a specified column 

CURPOS is called to move the cursor to a specified column. 

Inputs: 
R3 = Position to which cursor is to be moved. 
SLCCOL = Current cursor position. 

Outputs: 
SLCCOL = Position where cursor has been positioned. 

CURPOS: MOV R2, -<SP> 

Calculate how many columns cursor needs to be moved 



MOV 

SUB 
BEG 
BLT 



R3, R2 
SLCCOL, R2 
9* 
2* 



Move cursor right 



1*: 



CALL 


CSRRIT 


SOB 


R2, 1* 


BR 


4* 



Move cursor left 



NEG 


R2 


CALL 


CSRLFT 


SOB 


R2i 3* 



2*: 

3*: 



Finished move 

4*: MOV R3, SLCCOL 

Finished 

9*: MOV (SP>+, R2 
RETURN 



i Get desired column position 

; Calculate number of columns to move 

; Br if no movement necessary 

; Br if need to move left 



> Move cursor right 1 column 
i Loop if need to move more 



; Get positive column count 
i Move cursor left 1 column 
; Loop if need to move more 



Save new cursor position 



t 
t 

c 

i 

i 
t 
t 
f 

( 
< 
t 
i 

t 

i 

t 

4 
C 
* 



i 
i 
i 



TSSLE - 
CSRRIT 



2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

•f O 

X »J 

14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 

33 
34 
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— Generate control sequence to move cursor right 



010730 010246 



010732 012702 010766' 

010736 004737 011602' 

010742 103002 

010744 012702 010772' 



010750 112200 

010752 001403 

010754 004737 011210' 

010760 000773 



010762 012602 
010764 000207 



010766 
010771 
010772 



. SBTTL CSRRIT — Generate control sequence to move cursor right 

CSRRIT is called to generate the terminal control sequence to move 
the cursor right one column. 

Inputs: 
Rl = Job index number. 

CSRRIT: MOV R2, -<SP> 

Get control sequence based on terminal type 



OOOG 


133 


000 




OOOG 


103 



MOV 
CALL 
BCC 
MOV 



CHK52 
1* 
#MRS52, R2 



; Assume VTiOO terminal 

; Is this a VT52? 

j Br if not 

; Get VT52 control sequence 



Send control sequence to terminal 



1*: 



MOVB 


<R2>+, RO 


BEG 


9* 


CALL 


ECHO 


BR 


1* 


Finished 




MOV 


(SP)+, R2 


RETURN 





;Get next character from sequence 
; Br if hit end 
> Send to terminal 
•Continue sending 



9*: 

Control sequences 

103 MRS100: .BYTE ESC, 'Z, 'CO 

000 MRS52: . BYTE ESC, 'CO 
. EVEN 



i VTIOO 



i 
i 
i 

i 
t 
i 

i 
t 

t 
i 

t 

< 
C 
i 
I 
I 
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CSRLFT — Generate control sequence to move cursor left 

1 . SBTTL CSRLFT — Generate control sequence to move cursor left 



o 



3 i CSRLFT is called to generate the terminal control sequence to move 

4 ; the cursor left one column. 

5 ; 

6 i Inputs: 

7 i Rl = Job index number. 

8 : 

9 010776 112700 OOOOOOG CSRLFT: MOVB #BKSPAC> RO ; Use backspace character to move to left 

10 011002 004737 011210' CALL ECHO 

11 i 

12 i Finished 

13 > 

14 011006 000207 RETURN 



t 
I 
C 



f 

< 

i 
c 

i 

t 

< 
i 



c 



TSSLE - 
CHKDLM 



1 
2 
3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 



47 



011010 010146 
011012 010246 



011014 105700 
011016 001407 



011020 012701 011052' 

011024 112102 

011026 001405 

011030 120002 

011032 001401 

011034 000773 



011036 000261 
011040 000401 



011042 000241 



011044 012602 
011046 012601 
011050 000207 
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. SBTTL CHKDLM — Check for word delimiters 

Check to see if a character is a word delimiter. 

Inputs: 
RO = Character to check. 

Outputs: 
C-flag set ==> Character is a delimiter. 
C-flag cleared ==> Character is not a delimiter. 



CHKDLM: MOV 
MOV 



R 1 , - < SP ) 
R2> -<SP> 



Null is always a delimiter 



TSTB 
BEQ 



RO 
2* 



i Is character null? 

i Br if yes — this is a delimiter 



Search table of delimiters for the character 



1*: 



MOV 


#WRDDLM, Rl 


MOVB 


(Rl)+, R2 


BEG 


3* 


CMPB 


RO, R2 


BEQ 


2* 


BR 


1* 



Character is a delimiter 



2*: 



SEC 
BR 



>Point to table of delimiters 

; Get next delimiter character 

i Br if hit end of table 

i Is this character the delimiter? 

i Br if yes 

.: Keep check ing 



Signal that this is a delimiter 



9* 



Character is not a delimiter 
3*: CLC 

Finished 
9*: 



/Signal that this is not a delimiter 



MOV 
MOV 
RETURN 



<SP>+, R2 
<SP>+, Rl 



011052 
011055 
011060 
011063 



040 
075 
056 
051 



OOOG 
057 
133 
000 



054 WRDDLM: 

072 

050 



Table of word delimiters 

BYTE ' , TAB, ',,'-,'/>':,'.»' l> '<,'), O i Word delimiters <null=end) 



EVEN 



I 
I 

( 

i 
I 
C 

« 

i 
i 
i 
t 
t 

* 

i 
I 

i 



i 

t 

I 

( 
> < 



► 



t 
f 
I 
( 
I 
I 
t 
< 



( 
{ 
I 

i 



TSSLE — 
CVTLC - 

1 

2 

3 

4 

5 

6 

7 

8 

9 
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20 
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22 
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24 

25 

26 

27 

28 
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— Convert lowei — case characters to upper-case 



. SBTTL CVTLC — Convert louier-case characters to upper-case 

CVTLC is called to convert lower-case characters to upper case 
if requested by the currently running program. 

Inputs: 
RO = Input character. 
Rl = Job index number. 

Outputs: 
RO = Converted character. 



011066 032761 OOOOOOG OOOOOOQ CVTLC: BIT 
011074 001404 BEG 

011076 032761 OOOOOOG OOOOOOG BIT 



011104 001010 



011106 120027 000141 

011112 103405 

011114 120027 000172 

011120 101002 

011122 042700 000040 



011126 000207 



BNE 



#*LC, LSW2CRI) 

1* i Br if not 

#LCBIT, LJSW<R1 > ; Does program want lower case characters? 

2* » Br if yes — lower-case chars ok 



Translate lower-case character to upper-case 



1*: 



CMPB 


RO, #141 


BLO 


2* 


CMPB 


RO, #172 


BHI 


2* 


BIC 


#40, RO 



» Is this a lower case letter? 
i Br if not 

j Br if not lower-case letter 

i Convert lower-case to upper-case 



Finished 
2*: RETURN 



t 

c 



i 

i 

€ 

< 
i 
€ 
I 

( 

( 
i 
i 
t 

C 
i 



011130 



01 
01 



01 
01 
01 



1130 
1134 



1140 
1142 
1146 



112700 
004737 



110500 
062700 
004737 



000136 
011210 



000100 
011210' 



011152 000207 



TSSLE -- TSX-Plus Single Line E MACRO 
ECOCTL — Echo a control character 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



01 
01 



1154 
1160 



112700 
004737 



OOOOOOG 
011226' 



011164 000207 



011166 



01 
01 
01 
01 



1166 
1172 
1176 
1202 



112700 
004737 
112700 
004737 



0000000 
011226' 
000075 
011226' 
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, 3BTTL ECOCTL — Echo a control character 



ECOCTL is called to echo a control character by printing HA x" where 
"x" is the character. 



Inputs: 
Rl = Job index number. 
R5 = Control character. 

ECOCTL: 

Echo ,,A " 

MOVB #'•% RO 
CALL ECHO 

Echo character 



MOVB R5, RO 
ADD #100, RO 
CALL ECHO 



i Get up-arrow 
j Echo it 



; Get control character 

; Convert to upper-case character 

; Echo it 



Finished 

RETURN 

. SBTTL RNGBEL — Ring bell to signal error 

RNGBEL is called to send a bell character to the terminal to signal 
an error condition. 



RNGBEL: MOVB #BELL, RO 
CALL ECH02 



i Get bell character 
i Send to terminal 



Finished 

RETURN 

. SBTTL AKEYON — Turn on alternate keypad mode 

AKEYON is called to enable alternate keypad mode. 

Inputs: 
Ri = Job index number. 

AKEYON: 

Send control sequence to terminal 



MOVB #ESC, RO 

CALL ECH02 

MOVB #'=, RO 

CALL ECH02 



i Send Escape as 1st char 

> Send to terminal 

; Send equal sign as 2nd char 



011206 000207 



Finished 

RETURN 



i 



TSSLE — 
ECHO 
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- Send character to the terminal 



SBTTL ECHO — Send character to the terminal 



011210 



ECHO is called to send a character to the terminal. 

ECH02 always echoes the character even if character echoing is turned off. 

Inputs: 
Rl = Job index number. 
RO = Character to be sent (preserved). 

ECHO: 

See if character echoing is wanted. 



011210 032761 000000G OOOOOOG 

011216 001402 

011220 004737 011226' 

011224 000207 9*: 



011226 010046 



011230 



011236 012600 
011240 000207 



BIT #*ECH0, LSW2<R1 ) ;Is character echoing wanted? 

BEG 9* i Br if not 

CALL ECH02 ;Echo the character 

RETURN 



We want character echoing 
ECH02: MOV RO, -<SP) 

Send character to terminal 

OCALL QUECHR 
Finished 



MOV (SP)+, RO 
9*: RETURN 



Save character being echoed 



Send char to terminal 



; Recover character 



t 
ft 
f 

I 



f 

f 
i 
< 

i 
i 

i 
f 

i 

) 

€ 
I 

( 

!. 
f. 

i 
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( 

i 

« 

i 



TSSLE 
KEYCK 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 



3BTTL KEYCK 



Check to see if key is defined 



011242 



011242 012500 



011244 105737 OOOOOOG 

011250 001403 

011252 052700 OOOOOOC 

011256 000402 

011260 052700 OOOOOOC 



1 1 264 004737 1 1 272 



011270 000205 



KEYCK is the routine called through the use of the KEYCHK macro. 
It sets up information correctly in registers and calls KEYSRC, 

Form of the call: 

JSR R5, KEYCK 
. WORD key^code 

KEYCK: 

Pick up the key code. 

MOV <R5)+,R0 ;Get key code 

See if gold key has been pressed 

TSTB SLOOLD ; Has gold key been pressed? 

BEQ 1* ; Br if not 

BIS #KT*0LD*400, RO > Set key type to gold 

BR 2* 

1*: BIS #KT*NRM*400, RO ; Set normal key type 

See if this key is defined bu user 

2*: CALL KEYSRC 

Finished 

RTS R5 ; Return to caller 



C 
f 

i 
I 
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i 
t 
i 
i 
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t 
t 
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t 

« 

< 

< 
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TSSLE — 
KEYSRC - 
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. SBTTL KEYSRC — See if terminal key is defined by user 



011272 



011272 005737 OOOOOOG 

011276 001404 

011300 032761 OOOOOOG OOOOOOG 

011306 001002 

011310 000241 

011312 000207 



011314 010246 
011316 010346 



011320 013703 OOOOOOG 

011324 012702 OOOOOOG 

011330 

011352 020062 OOOOOOG 

011356 001413 

011360 062702 OOOOOOG 

011364 077306 

011366 



011402 000241 
011404 000415 



1 1 406 1 1 6203 OOOOOOG 

011412 

011426 105037 OOOOOOG 



Oil 432 004737 1 1 446 ' 
011436 000261 



Determine if a specific terminal key is defined by the user. 
If SO) perform the key substitution. 

Inputs: 
RO = Key code to be searched for. 
Rl = Job index number. 

Outputs: 
C-flag set ===> Key was defined; processing has been done for it. 
C-flag cleared ==> Key was not defined. 

KEYSRC : 

See if there are any user-defined keys 

Are there any user-defined keys? 
Br if not 

Is substitution wanted? 
Br if yes 
5*: CLC ; Signal failure on return 



TST 


KEYPAR 


BEQ 


5* 


BIT 


#*SLLET, LSW7<R1) 


BNE 


4* 


CLC 




RETURN 





There are some user-defined keys 



4*: 



MOV 
MOV 



R2, -<SP) 
R3, -<SP> 



Begin loop to search for the key definition 



1$: 



MOV 


VKEYMX, R3 


MOV 


#VPAR6, R2 


KEYMAP 




CMP 


RO, KD*C0D<R2) 


BEQ 


2* 


ADD 


#KD**SZ, R2 


SOB 


R3, 1* 


KEYUMP 





Key is not defined 



3*: 



CLC 
BR 



Get max # key definitions allowed 
Point to virtual address of region base 

; Map to key region 

} Is this entry for the key? 

i Br if yes 

; Point to next entry 
; i Loop if more to check 
Restore par 6 mapping 



Signal failure on return 



9* 



We found the key definition 

2*: MOVB KD*FLG<R2),R3 
KEYUMP 
CLRB SLGOLD 

Call routine which substitutes the key definition string 



; ; Get control flags for key def 
Restore par 6 mapping 
Clear gold key flag 



CALL 
SEC 

Finished 



KEYSUB 



» Do the substitution 

; Set flag saying we did a key definition 
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Page 93-1 



58 

59 011440 

60 011442 

61 011444 



012603 
012602 
000207 



9*: 



MOV 
MOV 
RETURN 



<SP>+,R3 
<SP)+, R2 



I DDLC •— — 

KEYSUB - 
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29 
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. SBTTL KEYSUB — Substitute a defined string for a key 



A user-defined key has been identified. 

Insert the defined text into the command buffer. 

Inputs: 
Rl = Current job index number 
R2 = Pointer to key definition block 
R3 = Control flags from definition block 



011446 010246 
011450 010546 
011452 016146 OOOOOOG 



011456 132703 OOOOOOG 

011462 001003 

011464 042761 OOOOOOG OOOOOOG 



011472 062702 OOOOOOG 



011476 

011520 112205 

011522 

011536 105705 

011540 001403 



011542 004737 000450' 
011546 000753 



KEYSUB: MOV 
MOV 
MOV 



R2, -<SP> 
R5, -<SP) 
LSW2<R1>, -<SP) i Save current LSW2 flag settings 



See if we should suppress display of this string 

BITB #KF*ECO> R3 ; Should we echo the string? 

BNE 1* ; Br if yes 

BIC #*ECHOi LSW2<R1 ) > Suppress echo of string 

Move the characters from the string definition to input line 
1*: ADD #KD*TXT, R2 ; Point to key def string 

Get next character from definition string 
2*: 



KEYMAP 

MOVB <R2>+, R5 

KEYUMP 

TSTB R5 

BEQ 5* 



> i Map to definition buffer 

; i Get next char from definition string 

Restore par 6 mapping 

Did we reach the end of the string? 

Br if yes 



Process the character as an ordinary received character 



CALL 
BR 



ORDCHR 

2* 



i Process the character 

i Go see if there are more characters 



We reached the end of the string. 

See if we should terminate the input line. 



011550 132703 OOOOOOG 
011554 001405 



011556 112737 000001 OOOOOOG 
011564 004737 005622' 



011570 012661 OOOOOOG 

011574 012605 

011576 012602 

011600 000207 



5*: BITB #KF*TRM, R3 
BEQ 9* 



iShould we terminate the input line? 
; Br if not 



Terminate the current input line 



9*: 



MOVB 


#1,SLCR 


CALL 


ICPCR 


Finished 




MOV 


<SP>+, LSW2(R1) 


MOV 


(SP)+, R5 


MOV 


<SP>+, R2 


RETURN 





i Say CR-LF received 

i Pretend we received a carriage-return 



.Restore echo flag 



TSSLE - 
CHK52 - 

1 
2 
3 
4 

5 
6 
7 
8 
9 
10 
11 
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is a VT52 



. sBTrL CHK52 — Determine if terminal is a VT52 
Determine if the terminal is a VT52. 



lb 

13 
14 
15 

16 01 

17 01 
18 

19 
20 

21 01 

22 01 

23 01 
24 
25 
26 

27 01 

28 01 



011602 010246 



1604 
1612 



1614 
1620 
1 626 



1630 
1632 



032761 
001010 



OOOOOOG OOOOOOG 



116102 OOOOOOG 

032762 OOOOOOG OOOOOOG 

001002 



000241 
000401 



29 

30 

31 

32 011634 000261 

33 

34 

35 

36 011636 

37 011640 
38 

Errors detected 



012602 
000207 
000001 




Inputs: 
Rl = Job index number 

Outputs: 
C--flag set if this is a VT52 
All registers are preserved. 

CHK52: MOV R2, -<SP) 

See if the terminal type is VT52 

BIT #VT52, LTRMTP<R1 ); Is the terminal type VT52? 
BNE 5* i Br if yes 

See if we are emulating a VT52 

MOVB LNPRIM<R1 )> R2 > Get primary job index number 
BIT #*V52EM, LSW1KR2)) Are uie emulating a VT52? 

BNE 5* j Br if yes 

This is not a VT52 

; Signal not- VT52 





BR 




9* 




; This 


is a 


VT52 




5*: 


SEC 








> Finished 








9*: 


MOV 




<SP)+, 


R2 




RETURN 








. END 









; Signal that this is a VT52 



##* Assembler statistics 



Work file reads: 

Work file writes: 

Size of work file: 8356 Words < 33 Pages) 

Size of core pool: 18176 Words < 71 Pages) 

Operating system: RT-11 

Elapsed time: 00:01:43.49 
, LP: TSSLE=DK: TSSLE/C/N: SYM 
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59-32 59-35 



*1ESC 


1-24 


59-34 








*CTRLW 


1-24 


7-16 


7-18 


59- 


-30 


*DBGMD 


1-39 


6-38 








*DETCH 


1-45 


3-17 








*DISCN 


1-39 


3-19 








*ECHO 


1-41 


91-14 


94-19 






*LC 


1-40 


89-13 








*NDICP 


1-43 


71-14 








*NOIN 


1-36 


71-20 








*NOINT 


1-43 


2-51 


71-26 






*NOLF 


1-40 


60-51 








fPWKEY 


1-23 


59-16 








*SCCA 


1-22 


65-16 








*SLINI 


1-40 


2-16 


4-62 


65- 


-41 


*SLKED 


1-41 


4-13 








*5LLET 


1-25 


93-20 








*SUCF 


1-42 


71-21 








*V52EM 


1-23 


95-22 








SVBELL 


1-23 


7-24 








SWDISP 


1-24 


7-25 








*XSTOP 


1-35 


71-13 








AKEYON 


4-15 


90-46# 








BELL 


1-38 


90-32 








BKSPAC 


1-35 


87-9 








CHK52 


20-17 


26— cc 


29-17 


32- 


-17 


CHKABT 


1-36 


71-22 








CHKDLM 


24-29 


24-36 


24-43 


24- 


-58 


CHRPOS 


16-20 


16-34 


17-23 


17- 


-37 




33-38 


34-64 


34-76 


61- 


-89 




84-9# 










CKRDTM 


6-48 


9-13# 








CKUAC 


6-43 


8-14# 








COLCLC 


81-21 


83-12# 


84-13 






CR 


1-37 


60-43 


60-49 


68- 


-25 


CSCHK 


5-14 


10-14# 








CSEND 


12-36 


13-66# 








CSFIN 


11-42 


11-70 


12-10# 






CSICHR 


1-44 


10-25 








CSRLFT 


81-70 


85-30 


87~9# 






CSRRIT 


85-23 


86-9# 








CSTBL 


12-18 


13-10# 








CTLRTN 


59-41 


59-51# 








CTRLQ 


1-33 










CURPOS 


81-22 


84-17 


85-12# 






CVTLC 


7-33 


8-26 


89-1 3# 






DELCHR 


1-39 


3-37 








DELLFT 


33-39 


69-28 


74-13# 






DOCTRL 


6-55 


59-10# 








DOSWIT 


1-24 


7-23 








El 


13-33 


37-8# 








E2 


13-34 


38-8# 








E3 


13-35 


39-8# 








E4 


13-36 


40-8# 








E5 


13-37 


41-8# 








E6 


13-38 


42-8# 








ECHO 


60-50 


60-54 


81-40 


81- 


-46 



63-15 86-14 95-12# 

24-66 34-26 34-30 34-37 61-44 61-62 88-12# 

21-50 23-23 24-75 24-107 25-29 25-35 26-43 33-24 

62-30 62-44 66-17 67-54 68-17 74-37 79-31 80-75 



i 

€ 

« 
i 
t 



i 
i 

81-65 86-22 87-10 90-15 90-21 91~10# 

I 



i 



( 
< 
i 
i 
i 
€ 
f 
C 
i 



c 
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* ECH02 68-26 68-28 90-33 90-51 90-53 91-16 9.1~22# 

ECOCTL 65-29 68-21 90-10# 

ENQTL 1-42 73-17 

' EP52 ll-22# 63-17 

EPCH1 11-12# 63-14 

EPCH2 11-15 11-35 11-51# 63-32 63-45 



ESC 1-40 10-18 86-32 86-33 90-50 

F10 13-43 47-8# 

Fll 13-44 48-8# 

F12 13-45 49-8# 

F13 13-46 50-8# 

F14 13-47 51-8# 

F15 13-48 52-8# 

F16 13-49 53-8# 

F17 13-50 54-8# 

F18 13-51 55-8# 

F19 13-52 56-8# 

F20 13-53 57-8# 

F6 13-39 43-8# 

F7 13-40 44-8# 

F8 13-41 45-8# 

F9 13-42 46-8# 

GTSLCH 1-18 2-12# 

ICPBS 49-24 59-59 62-8# 

ICPCR 22-16 59-64 60~9# 61-15 94-47 

ICPCSI 10-27 63-32# 

ICPCTA 59-52 64-5# 

ICPCTC 59-54 65-9# 

ICPCTR 59-69 59-74 66 -5# 

ICPCTU 59-72 67-9# 

ICPCTZ 59-77 65-15 68~9# 

ICPESC 10-20 59-78 63-9# 

ICPLF 50-24 59-61 61 -9# 



ICPNUL 59-51 70-5# 

ICPRUB 6-59 69-5# 

ICPSS3 10-34 63-45# 

" INSERT 7-43 21-49 33-21 34-75 61-32 67-21 69-15 79-19 80-124 

INTPRI 1-34 71-36 93-39 93-49 94-29 

INWAIT 3-30 71-8# 



i 

» * KBS 6-23 35-5# 

KBX 6-33 36-5# 

KC*COM 1-30 33-10 

' * KC*DOT 1-30 58-9 

KC*DWN 1-32 15-10 

KC*E1 1-27 37-12 

KCSE2 1-27 38-12 

KC*E3 1-27 39-12 

KC*E4 1-27 40-12 

* KC*E5 1-27 41-12 
KC*E6 1-27 42-12 
KC*ENT 1-30 22-9 

* KC*F10 1-28 47-12 
KC*F11 1-28 48-12 
KC*F12 1-28 49-12 

' KC*F13 1-28 50-12 



KC*F14 1-29 51-12 



I 



( 
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KC*F15 


1-29 


52-12 








KC*F16 


1-29 


53-12 








KC*F17 


1-29 


54-12 








KC*F18 


1-29 


55-12 








KC*F19 


1-29 


56-12 








KC*F20 


1-29 


57-12 








KC*F6 


1-28 


43-12 








KC*F7 


1-28 


44-12 








KC*F8 


1-28 


45-12 








KC$F9 


1-28 


46-12 








KC*KPO 


1-31 


23-11 








KC*KPi 


1-31 


24-9 








KC*KP2 


1-31 


25-9 








KC*KP3 


1-31 


26-12 








KC*KP4 


1-31 


27-9 








KC*KP5 


1-31 


28-9 








KC*KP6 


1-31 


29-12 








KC*KP7 


1-32 


30-12 








KC*KP8 


1-32 


31-12 








KC*KP9 


1-32 


32-12 








KC*LFT 


1-32 


16-12 








KC*MIN 


1-30 


34-12 








KC*PF1 


1-30 


18-12 








KC*PF2 


1-30 


19-12 






c 


KC*PF3 


1-30 


20-12 








KC*PF4 


1-30 


21-14 








KC*RIT 


1-32 


17-12 






f 


KC*UP 


1-32 


14-12 








KD**SZ 


1-26 


93-37 








KD*COD 


1-26 


93-35 








KD*FLG 


1-26 


93-48 








KD*TXT 


1-26 


94-23 








KEYO 


13-23 


23- 5# 








KEY1 


13-24 


24-5# 








KEY2 


13-25 


25-5# 








KEY3 


13-26 


26-8# 








KEY4 


13-27 


27-5# 








KEYS 


13-28 


2S-5# 








KEY6 


13-29 


29-8# 








KEY7 


13-30 


30-8# 








KEY8 


13-31 


31-8# 








KEY9 


13-32 


32-8# 








KEYCK 


14-12 


15-10 


16-12 


17-12 






26- i 2 


27-9 


28-9 


29-12 






40-12 


41-12 


42-12 


43-12 






52-12 


53-12 


54-12 


55-12 




KEYCOM 


13-20 


29-22 


33-5# 






KEYDOT 


13-22 


58-5# 








KEYMIN 


13-21 


32-22 


34-5# 






KEYPAR 


1-33 


5-26 


93-18 


93-34 




KEYSRC 


5-34 


92-26 


93-14# 






KEYSUB 


93-54 


94-1 1# 








KF*ECO 


1-26 


94-17 








KF*TRM 


1-26 


94-41 








KPAR6 


1-37 


93-34 


93-34* 


93-39 




KT*GLD 


1-27 


92-20 







18-12 19-12 20-12 21-14 22-9 23-11 24-9 25-9 

30-12 31-12 32-12 33-10 34-12 37-12 38-12 39-12 

44-12 45-12 46-12 47-12 48-12 49-12 50-12 51-12 

56-12 57-12 58-9 92-10# 



94- 



t 

« 
t 

i 

( 



93-49* 94-27 94-27* 94-29* 



i 
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KT*GLT 1-25 5-31 

KT*LET 1-25 5-33 

KT*NRM 1-27 92-22 

LACTIV 1-37 71-24 

LAFSIZ 1-39 73-40* 77-53 80-80 82-31 

LCBIT 1-40 89-15 

LCOL 1-34 4-48 60-62* 73-35* 

LF 1-33 60-44 60-53 68-27 

LF*IN 1-34 65-33 73-21 

LFWLIM 1-33 73-39* 82-23 

LHIPCT 1-34 2-53* 71-28* 

J.IMWI>ii i *r± J ~ £L.-t 

L INF IN 8-47 9-34 60-58 68-41 73-8# 77-58 80-89 

LINPNT 1-38 3-36 

LITIME 1-42 2-54* 71-29* 

LJSW 1-40 89-15 

LNPRIM 1-23 95-21 

LNSPAC 1-38 8-19 

LQGCHR 1-38 65-36 73-26 

LOOCR 1-36 65-37 

LOGFLG 1-34 65-33 73-21 

LRBFIL 1-34 81-64 

LRTCHR 1-41 9-17 9-38* 

LSCCA 1-41 65-13 

LSPACT 1-35 8-30 

LSTATE 1-42 73-14 

LSW 1-45 3-17 3-19* 59-34* 

LSW10 1-43 71-14* 

LSW 11 1-23 59-16 95-22 

LSW2 1-40 89-13 91-14 94-13 94-19* 94-51* 

LSW3 1-36 7-16 7-18* 59-30 59-32* 59-35* 71-20* 

LSW5 1-22 65-16 

LSW6 1-33 6-38 7-25 60-51 71-13* 

LSW7 1-40 2-16 2-51 4-13 4-62* 65-41* 71-26 93-20 

LSW9 1-42 7-24* 71-21* 

LTRMTP 1-33 95-16 

LTTPAR 1-36 

LWINDO 1-25 59-18 

MAPHLD 1-1 19# 93-34* 93-39 93-49 94-27* 94-29 

MAXLEN 77-32 80-44 82-1 5# 

MAX SEC 1-24 7-21 

MRS100 86-13 86-32# 

MRS52 86-16 86-33# 

NEDCDI 1-44 71-15* 

ORDCHR 5-40 6-9# 94-35 

OSTRIK 7-39 79-9# 

OVRHC 1-39 3-37 7-23 7-27 59-23 65-36 65-37 71-19 73-26 91-26 

PAINT 21-42 23-47 24-96 34-60 60-34 61-85 62-29 62-42 65-25 66-12 67-50 74-33 

77-49 79-26 80-70 81-14# 

PR7 1-36 71-23 93-34 94-27 

PRCHAR 3-43 5-8# 

PSW 1-37 71-23* 71-36* 93-34* 93-39* 93-49* 94-27* 94-29* 

QHDSPN 1-37 71-31 

QUECHR 1-40 91-26 

REGCHR 6-61 7-9# 59-53 59-55 59-56 59-57 59-58 59-60 59-62 59-63 59-65 59-66 * 

59-67 59-68 59-70 59-71 59-73 59-75 59-76 59-79 59-80 59-81 59-82 



i 
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RNGBEL 


11-57 


12-41 


1 5-43 


19-17 


20-22 


22-27 


24-112 


26-48 


29-26 


30-17 


31-17 


32- 


-26 




34-81 


37-18 


38-18 


39-18 


40-18 


41-18 


42-18 


43-18 


44-18 


45-18 


46-18 


47- 


-18 




48-18 


49-30 


50-30 


51-18 


52-18 


53-18 


54-18 


55-18 


56-18 


57-18 


58-15 


62- 


-24 




77-19 


77-35 


80-28 


80-50 


90-32# 


















RSTCHR 


77-25 


77-42 


7B-12# 






















RSTLIN 


4-68 


14-30 


14-46 


15-56 


36-10 


77-8# 
















RUBOUT 


1-43 


6-57 
























S*INWT 


1-38 


71-30 
























S*TTFN 


1-42 


73-14 


73-16 






















SAVLIN 


8-40 


60-38 


68-32 


72-6# 


77-57 


80-88 
















SIGWAT 


1-33 


71-19 


























1-41 


4-35* 


24-21 


24-100 


25-20 


26-28 


27-19* 


28-19* 












SLCBUF 


1-33 


7-41 


7-48* 


33-20 


33-36* 


69-14 


69-27* 


74-26* 


79-17 










SLCCOL 


1-36 


4-51* 


81-75* 


85-17 


85-35* 


















SLCR 


1-41 


4-27* 


22-15* 


60-14 


60-19* 


60-25* 


61-14 


94-46* 












SLCSBF 


1-44 


12-22 


63-19 


63-33 


63-46 


















SLCSBX 


1-44 


11-55 
























SLCSPT 


1-44 


11-12 


11-14* 


11-22 


11-34* 


11-51 


1 1 -76* 


63-19* 


63-35* 


63-48* 








SLCSR 


1-44 


4-31* 


5-19 


7-49* 


11-15* 


11-35* 


11-58* 


12-14* 


63-18* 


63-32* 


63-45* 






SLCX 


1-35 


4-44* 


8-41 


9-28 


16-27 


17-19 


17-30 


21-19 


23-30 


24-20 


24-81 


25- 


-25 




26-27 


33-22 


33-30 


34-17 


34-73 


60-32 


60-39 


61-39 


62-12 


66-10 


67-28 


68- 


-13 




69-21 


74-19 


79-14 


80-33 


80-59 


80-82 


81-56* 


84-21* 












3LCYC1 


1-22 


14-20 


14-25 


15-25* 


72-53* 


















5LCYC2 


1-22 


14-23 


1 5-26* 


72-54* 




















SLDBUF 


1-39 


21-32 


21-48 


23-37 


34-45 


34-74 


61-31 


61-70 


67-20 


67-35 








SLDOWN 


1-23 


14-39 


14-41* 


15-22 


1 5-34 


15-36* 


72-59* 














SLEBUF 


1-38 


4-43* 


4-44 


16-19 


16-28 


23-22 


24-50 


24-55 


24-63 


24-104 


25-34 


26- 


-40 




35-11 


61-41 


61-50 


61-59 


62-20 


65-23 


66-11 


67-29 


67-34 


67-43 


67-49 


69- 


-22 




72-11 


72-37 


73-23 


73-31 


74-20 


77-40 


77-48 


80-42 


80-85 


83-16 








SLECOL 


1-35 


4-50* 


73-35 


81-57 


81-76* 


















SLGOLD 


1-37 


4-23* 


5-29 


6-13 


6-22* 


6-32* 


7-50* 


14-17 


14-19* 


15-15 


1 5-20* 


16- 


-17 




16-21* 


17-17 


17-24* 


18-17 


18-19* 


18-24* 


19-18* 


20-23* 


21-20 


21-51* 


22-14* 


22- 


-31* 




23-16 


23-29* 


24-14 


24-80* 


25-14 


25-40* 


26-17 


26-49* 


27-14 


28-14 


29-27* 


30- 


-18* 




31-18* 


32-27* 


33-15 


33-25* 


34-18 


34-69* 


35-10* 


37-19* 


38-19* 


39-19* 


40-19* 


41- 


-19* 




42-19* 


43-19* 


44-19* 


45-19* 


46-19* 


47-19* 


48-19* 


49-18 


49-29* 


50-18 


50-29* 


51- 


-19* 




52-19* 


53-19* 


54-19* 


55-19* 


56-19* 


57-19* 


58-16* 


60-26 


60-31* 


61-26 


61-33* 


62- 


-13 




62-19* 


67-15 


67-22* 


69-9 


69-16* 


92-18 


93-50* 














SLINCH 


2-39 


3-12# 
























SLINIT 


2-18 


2-33 


4-8# 






















SLLBUF 


1-34 


4-57 


72-20 


72-33 


72-43 


75-19 


75-27 


75-35 


76-17 


76-28 


76-39 


78- 


-22 


SLLEND 


1-43 


72-18 


72-35 


72-45 


75-17 


75-25 


75-37 


76-19 


76-30 


76-37 


78-20 






SLLPTR 


1-43 


4-58* 


14-22 


14-28* 


14-35 


14-51* 


15-21 


1 5-28* 


15-33 


15-52* 


72-58* 






SLMVDN 


14-27 


15-24 


15-37 


15-48 


76-12# 


















SLMVUP 


14-42 


14-50 


75-12# 






















SLMXLN 


1-38 


82-19 
























SLOPTR 


1-35 


2-22 


2-47* 


4-19* 


73-31* 


















SLOVER 


1-22 


4-39* 


7-37 


64-5 


64-7* 


64-9* 
















SLRPTR 


1-22 


4-66 


4-69* 






















SLSBUF 


1-41 


35-12 


36-9 






















SLSCOL 


1-36 


4-49* 


83-17 






















SLSPTR 


1-23 


4-55 


4-57* 


4-58 


14-29* 


15-26 


15-27* 


15-41 


72-17 


72-32 


72-39* 


72- 


-58 


SS3CHR 


1-44 


10-32 
























STOP 


1-36 


3-20 


65-42 






















TAB 


1-35 


81-28 


83-27 


88-46 




















TCDOWN 


13-12 


13-55 


13-59 


15-5# 




















TCENTR 


13-15 


22-5# 

























I 



( 
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TCINVL 


22-23# 












TCLEFT 


13-14 


13-57 


13-61 


16- 


-8# 


28-24 


TCPF1 


13-16 


13-62 


18-8# 








TCPF2 


13-17 


13-63 


19~8# 








TCPF3 


13-18 


13-64 


20-8# 








TCPF4 


13-19 


13-65 


20-18 


21- 


-8# 


25-41 


TCRITE 


13-13 


13-56 


13-60 


17- 


-8# 


27-24 


TCUP 


13-11 


13-54 


13-58 


14- 


-8# 




TSSLE 


l-6# 












VINTIO 


1-37 


2-53 


71-28 








VKEYMX 


1-26 


93-32 










VPAR6 


1-32 


93-33 










VQUAN1 


1-42 


2-54 


71-29 








VT100 


1-42 












VT52 


1-35 


95-16 










WLSCH 


1-24 


59-28 










VVPWCH 


1-25 


59-14 










WINDSP 


1-24 


7-27 










WINPRT 


1-25 


59-23 










WRDDLM 


88-22 


8S-46# 











i 



t 
i 



( 
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DISABL 


l-49# 


71-23 


ENABL 


l-53# 


71-36 


ESCSEQ 


13-4# 


13-11 




13-22 


13-23 




13-34 


13-35 




13-46 


13-47 




13-58 


13-59 


KEYCHK 


1-112# 


14-12 




25-9 


26-12 




39-12 


40-12 




51-12 


52-12 


KEYiiAP 


l-97# 


93-34 


KEYUMP 


1-103# 


93-39 


OCALL 


l-57# 


3-37 


TTMAP 


l-85# 




TTMAPX 


l-78# 




UNMAP 


l-90# 




UNMAPX 


l-82# 





93-34 94-27 

93-39 93-49 94-29 

13-12 13-13 13-14 13-15 13-16 13-17 13-18 13-19 13-20 13-21 

13-24 13-25 13-26 13-27 13-28 13-29 13-30 13-31 13-32 13-33 

13-36 13-37 13-38 13-39 13-40 13-41 13-42 13-43 13-44 13-45 

13-48 13-49 13-50 13-51 13-52 13-53 13-54 13-55 13-56 13-57 

13-60 13-61 13-62 13-63 13-64 13-65 

15-10 16-12 17-12 18-12 19-12 20-12 21-14 22-9 23-11 24-9 

27-9 28-9 29-12 30-12 31-12 32-12 33-10 34-12 37-12 38-12 

41-12 42-12 43-12 44-12 45-12 46-12 47-12 48-12 49-12 50-12 

53-12 54-12 55-12 56-12 57-12 58-9 
94-27 

93-49 94-29 

7-23 7-27 59-23 65-36 65-37 71-19 73-26 91-26 
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